(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 346672, 7585] NotebookOptionsPosition[ 337209, 7271] NotebookOutlinePosition[ 337552, 7286] CellTagsIndexPosition[ 337509, 7283] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "Subsection", CellChangeTimes->{{3.5020401548077917`*^9, 3.5020402154722614`*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BodePlot", "[", RowBox[{"\[CapitalPhi]_", ",", "f0_", ",", "fn_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\[Omega]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"GraphicsColumn", "[", RowBox[{"{", RowBox[{ RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{"20", "*", RowBox[{"Log10", "[", RowBox[{"Abs", "[", RowBox[{"\[CapitalPhi]", "/.", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{"I", "*", "\[Omega]"}]}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", RowBox[{"10", "^", "f0"}], ",", RowBox[{"10", "^", "fn"}]}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"10", "^", "f0"}], ",", "0"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{ RowBox[{"180", "/", "Pi"}], "*", RowBox[{"Arg", "[", RowBox[{"\[CapitalPhi]", "/.", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{"I", "*", "\[Omega]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", RowBox[{"10", "^", "f0"}], ",", RowBox[{"10", "^", "fn"}]}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"10", "^", "f0"}], ",", "0"}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Step", "[", RowBox[{"\[CapitalPhi]_", ",", "tn_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "t", "}"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"\[CapitalPhi]", "/", "s"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tn"}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{ 3.5020383204928746`*^9, 3.5020383853155823`*^9, {3.502038447725152*^9, 3.5020384481581764`*^9}, {3.502038520683325*^9, 3.5020386116205263`*^9}, { 3.5020387194796953`*^9, 3.5020387196727066`*^9}, {3.5020387559567814`*^9, 3.5020387808022027`*^9}, {3.502038819462414*^9, 3.5020388469689875`*^9}, { 3.5020388960057917`*^9, 3.502038944693577*^9}, {3.5020390832455015`*^9, 3.5020391573897424`*^9}, {3.5020391898936014`*^9, 3.502039229940892*^9}, { 3.502039261511698*^9, 3.5020392683440886`*^9}, {3.5020393732790904`*^9, 3.5020393828986406`*^9}, {3.502039475060912*^9, 3.5020394895847425`*^9}, { 3.502039594366736*^9, 3.502039653321108*^9}, {3.5020396835438366`*^9, 3.502039776385147*^9}, {3.5020398295641885`*^9, 3.502039834398465*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:043f\:0435\:0440\:0435\:0445\ \:043e\:0434\:0430 \:043c\:0435\:0436\:0434\:0443 \:0441\:0432\:044f\:0437\ \:0430\:043d\:043d\:043e\:0439 \:0438 \:043d\:043e\:0440\:043c\:0430\:043b\ \:044c\:043d\:043e\:0439 \:0421\:041a\ \>", "Subsection", CellChangeTimes->{{3.502039932303065*^9, 3.502039951958189*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["A", "gb"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", "\[Psi]", "]"}], "0", RowBox[{"-", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}, {"0", "1", "0"}, { RowBox[{"Sin", "[", "\[Psi]", "]"}], "0", RowBox[{"Cos", "[", "\[Psi]", "]"}]} }], ")"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["B", "gb"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], "0"}, { RowBox[{"-", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], "0"}, {"0", "0", "1"} }], ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.502043616837808*^9, 3.502043624327236*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["C", "gb"], "=", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", "\[Gamma]", "]"}], RowBox[{"Sin", "[", "\[Gamma]", "]"}]}, {"0", RowBox[{"-", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], RowBox[{"Cos", "[", "\[Gamma]", "]"}]} }], ")"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ SubscriptBox["D", "gb"], "=", RowBox[{ SubscriptBox["C", "gb"], ".", SubscriptBox["B", "gb"], ".", SubscriptBox["A", "gb"]}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5020400038181553`*^9, 3.502043640979189*^9, 3.5020437596069736`*^9, 3.502045165714399*^9, 3.5020518475865803`*^9, 3.502052064955013*^9, 3.5023556935766907`*^9, 3.502358320679952*^9, 3.502358365347507*^9, 3.5023594334435987`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ SubscriptBox["D", "bg"], "=", RowBox[{"Transpose", "[", SubscriptBox["D", "gb"], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]}, { RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502040028630574*^9, 3.5020436410331917`*^9, 3.502043759659977*^9, 3.502045165766402*^9, 3.502051847626582*^9, 3.5020520649980154`*^9, 3.502355693636694*^9, 3.5023583207379556`*^9, 3.5023583654255114`*^9, 3.5023594334695997`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["C", "gb"], "=."}], ";", RowBox[{ SubscriptBox["B", "gb"], "=."}], ";", RowBox[{ SubscriptBox["A", "gb"], "=."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["D", "gb"], "=", RowBox[{"ReplaceAll", "[", RowBox[{ SubscriptBox["D", "gb"], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "\[Rule]", RowBox[{"\[Psi]", "[", "t", "]"}]}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", RowBox[{"\[CurlyTheta]", "[", "t", "]"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"\[Gamma]", "[", "t", "]"}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["D", "bg"], "=", RowBox[{"ReplaceAll", "[", RowBox[{ SubscriptBox["D", "bg"], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "\[Rule]", RowBox[{"\[Psi]", "[", "t", "]"}]}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", RowBox[{"\[CurlyTheta]", "[", "t", "]"}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", RowBox[{"\[Gamma]", "[", "t", "]"}]}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.502043736129631*^9, 3.502043750931478*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:043f\:0435\:0440\:0435\:0445\ \:043e\:0434\:0430 \:043c\:0435\:0436\:0434\:0443 \:0441\:0432\:044f\:0437\ \:0430\:043d\:043d\:043e\:0439 \:0438 \:0441\:043a\:043e\:0440\:043e\:0441\ \:0442\:043d\:043e\:0439 \:0421\:041a\ \>", "Subsection", CellChangeTimes->{{3.502040072733097*^9, 3.5020400799275084`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["A", "ab"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", "\[Beta]", "]"}], "0", RowBox[{"-", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}, {"0", "1", "0"}, { RowBox[{"Sin", "[", "\[Beta]", "]"}], "0", RowBox[{"Cos", "[", "\[Beta]", "]"}]} }], ")"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ SubscriptBox["B", "ab"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", "\[Alpha]", "]"}], RowBox[{"Sin", "[", "\[Alpha]", "]"}], "0"}, { RowBox[{"-", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], RowBox[{"Cos", "[", "\[Alpha]", "]"}], "0"}, {"0", "0", "1"} }], ")"}]}], ";"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ SubscriptBox["D", "ab"], "=", RowBox[{ SubscriptBox["B", "ab"], ".", SubscriptBox["A", "ab"]}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], RowBox[{"Sin", "[", "\[Alpha]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], RowBox[{"Cos", "[", "\[Alpha]", "]"}], RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}, { RowBox[{"Sin", "[", "\[Beta]", "]"}], "0", RowBox[{"Cos", "[", "\[Beta]", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5020401189837427`*^9, 3.502043641152199*^9, 3.5020437597259808`*^9, 3.502045165838406*^9, 3.502051847680586*^9, 3.5020520650530186`*^9, 3.5023556937276993`*^9, 3.502358320837961*^9, 3.5023583655325174`*^9, 3.5023594335076027`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["B", "ab"], "=."}], ";", RowBox[{ SubscriptBox["A", "ab"], "=."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["D", "ab"], "=", RowBox[{"ReplaceAll", "[", RowBox[{ SubscriptBox["D", "ab"], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"\[Alpha]", "[", "t", "]"}]}], ",", " ", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"\[Beta]", "[", "t", "]"}]}]}], "}"}]}], "]"}]}], ";"}]}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:043f\:0435\:0440\:0435\:0445\ \:043e\:0434\:0430 \:043c\:0435\:0436\:0434\:0443 \:0441\:0432\:044f\:0437\ \:0430\:043d\:043d\:043e\:0439 \:0438 \:043f\:043e\:043b\:0443\:0441\:0432\ \:044f\:0437\:0430\:043d\:043d\:043e\:0439 \:0421\:041a\ \>", "Subsection", CellChangeTimes->{{3.502040404533075*^9, 3.502040415409697*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["D", "be"], "=", RowBox[{"(", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }], ")"}]}], ";"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ \:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\:043a\:0438\:0435 \ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \:043f\:043e\:0441\ \:0442\:0443\:043f\:0430\:0442\:0435\:043b\:044c\:043d\:043e\:0433\:043e \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0446\:0435\:043d\:0442\ \:0440\:0430 \:043c\:0430\:0441\:0441 \:041b\:0410\ \>", "Subsection", CellChangeTimes->{{3.497028750771304*^9, 3.4970287702114162`*^9}, { 3.4976275278262453`*^9, 3.49762755832699*^9}, {3.502040286810342*^9, 3.5020402876923923`*^9}}], Cell["\<\ \:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \:0434\:0432\:0438\ \:0436\:0435\:043d\:0438\:044f \:0446\:0435\:043d\:0442\:0440\:0430 \:043c\ \:0430\:0441\:0441 \:041b\:0410 \:043f\:043e\:043b\:0443\:0447\:0438\:043c \ \:043d\:0430 \:043e\:0441\:043d\:043e\:0432\:0430\:043d\:0438\:0438 \:0437\ \:0430\:043a\:043e\:043d\:0430 \:0438\:0437\:043c\:0435\:043d\:0435\:043d\ \:0438\:044f \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:0430 \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0446\:0435\:043d\:0442\ \:0440\:0430 \:043c\:0430\:0441\:0441:\ \>", "Text", CellChangeTimes->{{3.4970287996110973`*^9, 3.497028807421544*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"d", OverscriptBox["Q", "\[RightVector]"]}], "dt"], "=", RowBox[{ UnderscriptBox["\[CapitalSigma]", "i"], OverscriptBox[ SubscriptBox["F", "i"], "\[RightVector]"]}]}], ",", Cell[ ""]}], "\[IndentingNewLine]", RowBox[{ OverscriptBox["Q", "\[RightVector]"], "=", RowBox[{"m", OverscriptBox["V", "\[RightVector]"], RowBox[{Cell[""], "."}]}]}]}], "DisplayFormula", CellChangeTimes->{{3.4970288360761833`*^9, 3.4970288711681905`*^9}, { 3.4970289235171843`*^9, 3.497029176727667*^9}}], Cell[TextData[{ "\:041f\:0440\:043e\:0434\:0438\:0444\:0444\:0435\:0440\:0435\:043d\:0446\ \:0438\:0440\:0443\:0435\:043c ", Cell[BoxData[ FormBox[ OverscriptBox["V", "\[RightVector]"], TraditionalForm]]], " \:043f\:043e \:043f\:0440\:0430\:0432\:0438\:043b\:0430\:043c \:0434\:0438\ \:0444\:0444\:0435\:0440\:0435\:043d\:0446\:0438\:0440\:043e\:0432\:0430\:043d\ \:0438\:044f \:0432\:0435\:043a\:0442\:043e\:0440\:0430, \:0437\:0430\:043f\ \:0438\:0441\:0430\:043d\:043d\:043e\:0433\:043e \:0432 \:043f\:043e\:0434\ \:0432\:0438\:0436\:043d\:043e\:043c \:0431\:0430\:0437\:0438\:0441\:0435:" }], "Text", CellChangeTimes->{{3.497029879228848*^9, 3.4970299713371162`*^9}, { 3.4970300626133375`*^9, 3.497030080136339*^9}, {3.497030115523363*^9, 3.497030121444702*^9}}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"d", OverscriptBox["V", "\[RightVector]"]}], "dt"], "=", RowBox[{ FractionBox[ RowBox[{"d", OverscriptBox["V", "~"]}], "dt"], "+", RowBox[{ RowBox[{"(", RowBox[{ OverscriptBox["\[Omega]", "\[RightVector]"], "\[Cross]", OverscriptBox["V", "\[RightVector]"]}], ")"}], "."}]}]}]], "DisplayFormula", CellChangeTimes->{{3.4970301294291587`*^9, 3.4970301889245615`*^9}, { 3.4970303417083006`*^9, 3.497030344195443*^9}, {3.4970307313815885`*^9, 3.497030734154747*^9}}], Cell["\:0412\:043e\:0437\:0434\:0443\:0448\:043d\:0430\:044f \:0441\:043a\ \:043e\:0440\:043e\:0441\:0442\:044c:", "Text", CellChangeTimes->{{3.4976934595499587`*^9, 3.497693476897189*^9}, { 3.4976935847713766`*^9, 3.4976936323670597`*^9}, {3.5020405170845127`*^9, 3.502040528650174*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["V", "a"], "=", RowBox[{"{", RowBox[{ RowBox[{"V", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.5020405338504715`*^9, 3.502040555703721*^9}}], Cell["\<\ \:0412\:044b\:0440\:0430\:0437\:0438\:043c \:0441\:043a\:043e\:0440\:043e\ \:0441\:0442\:044c \:0432 \:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\ \:0439 \:0421\:041a \:0447\:0435\:0440\:0435\:0437 \:0432\:043e\:0437\:0434\ \:0443\:0448\:043d\:0443\:044e:\ \>", "Text", CellChangeTimes->{{3.5020406283328753`*^9, 3.5020406489280534`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{ SubscriptBox["V", "b"], "=", RowBox[{ SubscriptBox["D", "ab"], ".", SubscriptBox["V", "a"]}]}], "]"}]], "Input", CellChangeTimes->{{3.502040623619606*^9, 3.502040624776672*^9}, { 3.502040655424425*^9, 3.5020406844570856`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020406751365523`*^9, 3.5020406851691265`*^9}, 3.5020436412112026`*^9, 3.502043759797985*^9, 3.50204516590541*^9, 3.5020518477315884`*^9, 3.5020520651070213`*^9, 3.5023556938187046`*^9, 3.5023583208929644`*^9, 3.5023583655805206`*^9, 3.502359433548605*^9}] }, Open ]], Cell["\<\ \:0423\:0433\:043b\:043e\:0432\:0430\:044f \:0441\:043a\:043e\:0440\:043e\ \:0441\:0442\:044c \:0432\:0440\:0430\:0449\:0435\:043d\:0438\:044f \:041b\ \:0410 \:0432\:043e\:043a\:0440\:0443\:0433 \:0446\:0435\:043d\:0442\:0440\ \:0430 \:043c\:0430\:0441\:0441:\ \>", "Text", CellChangeTimes->{{3.4976268731147985`*^9, 3.4976269040075655`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "b"], "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.49762690933687*^9, 3.4976269463789887`*^9}, 3.4976270459936867`*^9, 3.4976273440647354`*^9, {3.4976327815997443`*^9, 3.4976327980326843`*^9}, {3.501821140959849*^9, 3.5018211563414755`*^9}}], Cell["\<\ \:0421\:0438\:043b\:0430 \:0442\:044f\:0436\:0435\:0441\:0442\:0438 \:0432 \ \:0431\:0430\:0437\:0438\:0441\:0435 \:043d\:043e\:0440\:043c\:0430\:043b\ \:044c\:043d\:043e\:0439 \:0441\:0438\:0441\:0442\:0435\:043c\:044b \:043a\ \:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442:\ \>", "Text", CellChangeTimes->{{3.4970292533660507`*^9, 3.497029278843508*^9}, { 3.5020408596081038`*^9, 3.5020408821943955`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["G", "g"], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "G"}], ",", "0"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4970292967795343`*^9, 3.4970293377488775`*^9}, { 3.497627598640296*^9, 3.497627611898054*^9}, {3.4976311685684843`*^9, 3.4976311726597185`*^9}, {3.497633201285749*^9, 3.497633202625826*^9}, { 3.501903924590639*^9, 3.501903925546694*^9}}], Cell["\<\ \:0421\:0438\:043b\:0430 \:0442\:044f\:0433\:0438 \:0434\:0432\:0438\:0433\ \:0430\:0442\:0435\:043b\:044f \:0432 \:0431\:0430\:0437\:0438\:0441\:0435 \ \:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439 \:0441\:0438\:0441\ \:0442\:0435\:043c\:044b \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\ \:0442:\ \>", "Text", CellChangeTimes->{{3.497029378425204*^9, 3.4970293981673326`*^9}, { 3.497627775403406*^9, 3.497627796763628*^9}, {3.497627837603964*^9, 3.497627844363351*^9}, {3.497693726575624*^9, 3.497693731115232*^9}, { 3.49769376424969*^9, 3.4976938325310087`*^9}, {3.501903883295277*^9, 3.5019038940398912`*^9}, {3.502040912908152*^9, 3.5020409308991814`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["P", "b"], "=", RowBox[{"{", RowBox[{ RowBox[{"P", "*", RowBox[{"Cos", "[", SubscriptBox["\[Phi]", "p"], "]"}]}], ",", RowBox[{"P", "*", RowBox[{"Sin", "[", SubscriptBox["\[Phi]", "p"], "]"}]}], ",", "0"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4970294238438015`*^9, 3.497029429704137*^9}, { 3.497083902452261*^9, 3.497083902530261*^9}, {3.497083934806717*^9, 3.4970839401419263`*^9}, {3.497084129713457*^9, 3.497084130134658*^9}, { 3.497084752747343*^9, 3.4970847529969435`*^9}, {3.497092540479322*^9, 3.497092583706997*^9}, {3.497627862205371*^9, 3.497627904508791*^9}, { 3.497631181478223*^9, 3.497631195159005*^9}, {3.497633206269034*^9, 3.497633207986132*^9}, {3.4976938374450173`*^9, 3.4976938570386515`*^9}, { 3.498284898781657*^9, 3.498284910103305*^9}, {3.4983014771816893`*^9, 3.498301509660946*^9}, {3.5019039025333776`*^9, 3.501903929206903*^9}}], Cell["\<\ \:0420\:0430\:0432\:043d\:043e\:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\ \:0449\:0430\:044f \:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\ \:0438\:0447\:0435\:0441\:043a\:0438\:0445 \:0441\:0438\:043b \:0432 \:0431\ \:0430\:0437\:0438\:0441\:0435 \:0441\:043a\:043e\:0440\:043e\:0441\:0442\ \:043d\:043e\:0439 \:0441\:0438\:0441\:0442\:0435\:043c\:044b:\ \>", "Text", CellChangeTimes->{{3.4970294452940283`*^9, 3.4970294558536325`*^9}, { 3.5020409548435507`*^9, 3.5020409653911543`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["R", "a"], "=", RowBox[{"{", RowBox[{ RowBox[{"-", "X"}], ",", "Y", ",", "Z"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.497029496394951*^9, 3.4970295125338745`*^9}, 3.4970841562335033`*^9, {3.497084236292843*^9, 3.49708434377703*^9}, { 3.497084496438896*^9, 3.497084508747318*^9}, {3.497090509449381*^9, 3.4970905519750547`*^9}, {3.4970907736826415`*^9, 3.497090779298651*^9}, { 3.4970912194222183`*^9, 3.497091236317048*^9}, {3.497091431410988*^9, 3.4970914402874036`*^9}, {3.4970917241766987`*^9, 3.4970917763587894`*^9}, {3.497092473399205*^9, 3.4970925323205075`*^9}, { 3.4970925878098044`*^9, 3.4970925887458057`*^9}, {3.4976279702065487`*^9, 3.4976279939839087`*^9}, {3.49763119908823*^9, 3.4976312035014825`*^9}, { 3.4976332118373528`*^9, 3.497633213328438*^9}, {3.4983015215793667`*^9, 3.4983015255573735`*^9}, {3.5019039322580776`*^9, 3.501903932900114*^9}, { 3.50204643014472*^9, 3.5020464570422583`*^9}}], Cell["\<\ \:0417\:0430\:043f\:0438\:0448\:0435\:043c \:0443\:0440\:0430\:0432\:043d\ \:0435\:043d\:0438\:0435 \:0432 \:0441\:0432\:044f\:0437\:0430\:043d\:043d\ \:043e\:0439 \:0421\:041a, \:0430 \:0437\:0430\:0442\:0435\:043c \:0441\:043f\ \:0440\:043e\:0435\:043a\:0442\:0438\:0440\:0443\:0435\:043c \:0432 \:043f\ \:043e\:043b\:0443\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e:\ \>", "Text", CellChangeTimes->{{3.5020410119018145`*^9, 3.502041040650459*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tm", "=", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Simplify", "[", RowBox[{"m", "*", RowBox[{ SubscriptBox["D", "be"], ".", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ SubscriptBox["V", "b"], ",", "t"}], "]"}], "+", RowBox[{ SubscriptBox["\[Omega]", "b"], "\[Cross]", SubscriptBox["V", "b"]}]}], ")"}]}]}], "]"}], "]"}], "\[Equal]", RowBox[{"MatrixForm", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Simplify", "[", RowBox[{ SubscriptBox["D", "be"], ".", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["D", "gb"], ".", SubscriptBox["G", "g"]}], "+", RowBox[{ SubscriptBox["D", "ab"], ".", SubscriptBox["R", "a"]}], "+", SubscriptBox["P", "b"]}], ")"}]}], "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"P", " ", RowBox[{"Cos", "[", SubscriptBox["\[Phi]", "p"], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], "-", RowBox[{"P", " ", RowBox[{"Sin", "[", SubscriptBox["\[Phi]", "p"], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}]}], "\[Rule]", RowBox[{"P", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"P", " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", SubscriptBox["\[Phi]", "p"], "]"}]}], "+", RowBox[{"P", " ", RowBox[{"Cos", "[", SubscriptBox["\[Phi]", "p"], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}]}], "\[Rule]", RowBox[{"P", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}]}]}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"DYPD", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"tm", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"tm", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "tm", "]"}], ";"}]}], "Input", CellChangeTimes->{ 3.4969419547660527`*^9, {3.49694202772738*^9, 3.496942076430665*^9}, { 3.496942125991951*^9, 3.4969421617472134`*^9}, 3.496942321912693*^9, { 3.496942370303977*^9, 3.4969423915200143`*^9}, {3.496942525149847*^9, 3.49694260703439*^9}, {3.49694265868608*^9, 3.496942844856805*^9}, { 3.49694310019805*^9, 3.4969431443929267`*^9}, {3.4969438984524417`*^9, 3.4969439069544563`*^9}, {3.4969439494489307`*^9, 3.496944169768115*^9}, { 3.49694423594343*^9, 3.4969442895139236`*^9}, {3.496944553076383*^9, 3.4969445555099874`*^9}, {3.496944698811837*^9, 3.4969448188228464`*^9}, { 3.4969448875253663`*^9, 3.496944941704261*^9}, {3.496944977428323*^9, 3.4969453296301374`*^9}, {3.4969454796087985`*^9, 3.496945593832198*^9}, { 3.497029302590866*^9, 3.497029325947202*^9}, 3.4970294059857802`*^9, { 3.497029616673831*^9, 3.497029824031691*^9}, 3.4970298545114346`*^9, { 3.497030360773391*^9, 3.4970303640875807`*^9}, {3.497030741453164*^9, 3.4970307908939924`*^9}, {3.497030825541974*^9, 3.4970308591378956`*^9}, { 3.4970308926418123`*^9, 3.497030960278681*^9}, {3.497030992458521*^9, 3.4970310894470687`*^9}, {3.497031479912402*^9, 3.497031489076926*^9}, { 3.497083325641255*^9, 3.497083339213279*^9}, {3.4970834530934772`*^9, 3.4970834644034967`*^9}, {3.497084843695502*^9, 3.4970848519323163`*^9}, { 3.497084965516114*^9, 3.497084969572121*^9}, {3.497085025326618*^9, 3.497085048711059*^9}, {3.49708561129484*^9, 3.497085712773017*^9}, { 3.497085758387497*^9, 3.497085785609544*^9}, {3.4970858157331963`*^9, 3.4970859148401694`*^9}, {3.497086003198724*^9, 3.49708603553758*^9}, { 3.49708607027884*^9, 3.497086292579228*^9}, {3.4970864555527124`*^9, 3.4970864767843494`*^9}, {3.4970866812851057`*^9, 3.4970867240603805`*^9}, {3.4970867614224453`*^9, 3.497086771890064*^9}, { 3.4970871812503777`*^9, 3.497087204915619*^9}, {3.4970872498280973`*^9, 3.4970873223214235`*^9}, {3.4976281859958906`*^9, 3.4976282862576256`*^9}, {3.497628499251808*^9, 3.497628553251897*^9}, 3.4976285862737856`*^9, 3.49763092302944*^9, {3.497631038833064*^9, 3.4976310474925594`*^9}, {3.497631077700287*^9, 3.497631130132286*^9}, { 3.497631226226782*^9, 3.49763123457926*^9}, {3.497633265689433*^9, 3.49763327892719*^9}, {3.4976334845069485`*^9, 3.4976335174208307`*^9}, { 3.497634495591779*^9, 3.4976344959317985`*^9}, {3.5018263025888486`*^9, 3.501826315458871*^9}, {3.501826398404216*^9, 3.5018264223970575`*^9}, { 3.5020410723982744`*^9, 3.502041237823736*^9}, {3.502041268815509*^9, 3.5020413471699905`*^9}}], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"P", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"X", " ", RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "+", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}]}]}]}, { RowBox[{ RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox["\[Alpha]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}], "+", RowBox[{"P", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}]}]}]}, { RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["\[Beta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"Z", " ", RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "-", RowBox[{"X", " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "+", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{ 3.50182642383226*^9, 3.501826499164791*^9, 3.501903367776791*^9, 3.501907369946702*^9, {3.502041178832362*^9, 3.5020412106591825`*^9}, 3.5020413494751225`*^9, 3.502043641713231*^9, 3.5020437603830185`*^9, 3.5020451664294395`*^9, 3.5020518482416177`*^9, 3.5020520656110506`*^9, 3.502355694457741*^9, 3.502358321280987*^9, 3.5023583659435415`*^9, 3.5023594338866243`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:0412\:0430\:0440\:044c\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \:043a\:0430\:0441\ \:0430\:0442\:0435\:043b\:044c\:043d\:044b\:0445 \:0441\:0438\:043b\ \>", "Subsection", CellChangeTimes->{{3.5020414164579535`*^9, 3.5020414241833954`*^9}, { 3.502041489926156*^9, 3.5020415213969555`*^9}, {3.5020416168654165`*^9, 3.50204162462386*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UKS", "=", RowBox[{"DYPD", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5020414327468853`*^9, 3.5020414406883397`*^9}, { 3.502358306490141*^9, 3.5023583401270647`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox["\[Alpha]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}], "+", RowBox[{"P", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}]}]}]], "Output", CellChangeTimes->{ 3.5020414414293823`*^9, 3.5020436417582335`*^9, 3.502043760429021*^9, 3.502045166473442*^9, 3.50205184828162*^9, 3.5020520656560526`*^9, 3.5023556945237446`*^9, {3.5023583101293488`*^9, 3.502358365980543*^9}, 3.5023594339156256`*^9}] }, Open ]], Cell[TextData[{ "\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 \:043e\:0441\:043d\:043e\ \:0432\:043d\:043e\:0435 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:0435 - \ \:041f\:0413\:041f:\n", Cell[BoxData[ FormBox[ SubscriptBox["V", "0"], TraditionalForm]]], "=const; ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "x0"], "=", "0"}], ";"}], " "}], TraditionalForm]]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "y0"], "=", "0"}], ";"}], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z0"], "=", "0"}], ";"}], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "0"], "=", "0"}], ";", " ", RowBox[{ SubscriptBox["\[Gamma]", "0"], "=", "0"}], ";", " ", RowBox[{ SubscriptBox["Z", "0"], "=", "0"}], ";"}], TraditionalForm]]] }], "Text", CellChangeTimes->{{3.50204163563449*^9, 3.502041665699209*^9}, { 3.502042536667026*^9, 3.5020425680468206`*^9}, {3.502042621772894*^9, 3.5020427591487513`*^9}, {3.5020429226361017`*^9, 3.5020429420322113`*^9}, {3.5020431119769316`*^9, 3.502043113989047*^9}, 3.5020438668651085`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IOD", "=", RowBox[{"UKS", "/.", RowBox[{"{", RowBox[{ RowBox[{"V", "\[Rule]", SubscriptBox["V", "0"]}], ",", RowBox[{"\[Beta]", "\[Rule]", SubscriptBox["\[Beta]", "0"]}], ",", RowBox[{"\[Alpha]", "\[Rule]", SubscriptBox["\[Alpha]", "0"]}], ",", RowBox[{"\[Gamma]", "\[Rule]", SubscriptBox["\[Gamma]", "0"]}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", SubscriptBox["\[CurlyTheta]", "0"]}], ",", RowBox[{ SubscriptBox["\[Omega]", "x"], "->", SubscriptBox["\[Omega]", "x0"]}], ",", RowBox[{ SubscriptBox["\[Omega]", "y"], "->", SubscriptBox["\[Omega]", "y0"]}], ",", RowBox[{"P", "\[Rule]", SubscriptBox["P", "0"]}], ",", RowBox[{"X", "\[Rule]", SubscriptBox["X", "0"]}], ",", RowBox[{"Z", "\[Rule]", SubscriptBox["Z", "0"]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.502041670675494*^9, 3.502041676669837*^9}, 3.5020424718213167`*^9, {3.5020427916396093`*^9, 3.5020429026939616`*^9}, { 3.5020429619263496`*^9, 3.502042989432923*^9}, {3.502043028464155*^9, 3.502043032103363*^9}, {3.502043676030194*^9, 3.502043678307324*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "0"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Beta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x0"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Beta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y0"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Beta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Gamma]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "0"]}]}]}]], "Output", CellChangeTimes->{3.5020465041179514`*^9, 3.502051848324622*^9, 3.5020520657110558`*^9, 3.502355694558747*^9, 3.50235832133899*^9, 3.5023583660215454`*^9, 3.5023594339436274`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IOD", "=", RowBox[{ RowBox[{"IOD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["V", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "0"], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Gamma]", "0"], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "x0"], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "y0"], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["Z", "0"], "\[Rule]", "0"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}]}], "\[Rule]", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}]}], "]"}]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.502043041623908*^9, 3.502043192477536*^9}, 3.5020436370009613`*^9, {3.5020436846446867`*^9, 3.502043688830926*^9}, { 3.502044124192827*^9, 3.5020441942798357`*^9}, {3.5020442351871758`*^9, 3.5020442736463757`*^9}, {3.502046478278473*^9, 3.502046478812504*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "0"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "0"]}]}]}]], "Output", CellChangeTimes->{3.5020442776056023`*^9, 3.5020451667034554`*^9, 3.5020465053450212`*^9, 3.502051848371625*^9, 3.502052065757059*^9, 3.5023556945917487`*^9, 3.502358321373992*^9, 3.502358366061548*^9, 3.5023594339706287`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IOD", "=", RowBox[{"IOD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}]}], "\[Rule]", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{ 3.5020435184731817`*^9, {3.5020436128605804`*^9, 3.502043631074622*^9}, { 3.5020437016426587`*^9, 3.5020437134263325`*^9}, {3.5020437699435654`*^9, 3.502043782347275*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "0"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "0"]}]}]}]], "Output", CellChangeTimes->{3.5020437829493093`*^9, 3.5020442837899556`*^9, 3.5020451667554584`*^9, 3.502046506320077*^9, 3.5020518484116273`*^9, 3.502052065802061*^9, 3.5023556946257505`*^9, 3.502358321406994*^9, 3.50235836610655*^9, 3.5023594339966307`*^9}] }, Open ]], Cell["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 \:0432\:043e\:0437\ \:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435 \:0434\:0432\:0438\:0436\ \:0435\:043d\:0438\:0435:", "Text", CellChangeTimes->{{3.502043888500346*^9, 3.5020439198711405`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{"UKS", "/.", RowBox[{"{", RowBox[{ RowBox[{"V", "\[Rule]", SubscriptBox["V", "1"]}], ",", RowBox[{"\[Beta]", "\[Rule]", SubscriptBox["\[Beta]", "1"]}], ",", RowBox[{"\[Alpha]", "\[Rule]", SubscriptBox["\[Alpha]", "1"]}], ",", RowBox[{"\[Gamma]", "\[Rule]", SubscriptBox["\[Gamma]", "1"]}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", SubscriptBox["\[CurlyTheta]", "1"]}], ",", RowBox[{ SubscriptBox["\[Omega]", "x"], "->", SubscriptBox["\[Omega]", "x1"]}], ",", RowBox[{ SubscriptBox["\[Omega]", "y"], "->", SubscriptBox["\[Omega]", "y1"]}], ",", RowBox[{"P", "\[Rule]", SubscriptBox["P", "1"]}], ",", RowBox[{"X", "\[Rule]", SubscriptBox["X", "1"]}], ",", RowBox[{"Z", "\[Rule]", SubscriptBox["Z", "1"]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5020439246424136`*^9, 3.502043970462034*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Beta]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Beta]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Beta]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Gamma]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "1"]}]}]}]], "Output", CellChangeTimes->{3.5020462718926687`*^9, 3.502046508657211*^9, 3.502046569555694*^9, 3.502050421400007*^9, 3.5020504539008656`*^9, 3.50205184845763*^9, 3.5020520659900723`*^9, 3.5023556946617527`*^9, 3.502358321443996*^9, 3.5023583661455526`*^9, 3.502359434024632*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{"IVD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["V", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"(", "\[CapitalDelta]V", ")"}], "'"}], "[", "t", "]"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "1"], "\[Rule]", "\[CapitalDelta]\[Beta]"}], ",", RowBox[{ SubscriptBox["\[Gamma]", "1"], "\[Rule]", "\[CapitalDelta]\[Gamma]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.502046213210312*^9, 3.5020462210327597`*^9}, { 3.5020462674904165`*^9, 3.502046268398469*^9}, {3.502046387954307*^9, 3.5020463885993443`*^9}, {3.502046514080521*^9, 3.5020465668845415`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "x1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{ SubscriptBox["\[Omega]", "y1"], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"\[CapitalDelta]\[Gamma]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "1"]}]}]}]], "Output", CellChangeTimes->{{3.5020462545646777`*^9, 3.502046275803892*^9}, 3.5020465159696293`*^9, 3.5020465705647516`*^9, 3.5020504223140593`*^9, 3.502050454915924*^9, 3.50205184863764*^9, 3.5020520660410748`*^9, 3.502355694700755*^9, 3.502358321480998*^9, 3.502358366186555*^9, 3.5023594340526333`*^9}] }, Open ]], Cell["\<\ \:041f\:0440\:0435\:043d\:0435\:0431\:0440\:0435\:0436\:0435\:043c \:0432\ \:0442\:043e\:0440\:044b\:043c \:043f\:043e\:0440\:044f\:0434\:043a\:043e\ \:043c \:043c\:0430\:043b\:043e\:0441\:0442\:0438:\ \>", "Text", CellChangeTimes->{3.5020463136230555`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{"IVD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalDelta]\[Gamma]", "[", "t", "]"}], "]"}], "\[Rule]", "1"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5020463202334337`*^9, 3.502046357551568*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "1"]}]}]}]], "Output", CellChangeTimes->{3.5020463587486362`*^9, 3.5020465759210577`*^9, 3.5020504247531986`*^9, 3.502050457623079*^9, 3.5020518486866426`*^9, 3.5020520660860777`*^9, 3.502355694735757*^9, 3.502358321517*^9, 3.502358366227557*^9, 3.502359434078635*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{ RowBox[{"IVD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}]}], "->", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}]}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}]}], "\[Rule]", RowBox[{ SubscriptBox["\[Theta]", "1"], "[", "t", "]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5020465893548265`*^9, 3.5020466507403374`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}]}], "]"}], " ", SubscriptBox["P", "1"]}]}]}]], "Output", CellChangeTimes->{3.502046651632388*^9, 3.50205042583226*^9, 3.502050460490243*^9, 3.502051848740646*^9, 3.50205206613008*^9, 3.5023556947727585`*^9, 3.502358321585004*^9, 3.5023583662645597`*^9, 3.5023594341056366`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{"IVD", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "1"], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "+", RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}]}]}], ",", RowBox[{ SubscriptBox["P", "1"], "\[Rule]", RowBox[{ SubscriptBox["P", "0"], "+", "\[CapitalDelta]P"}]}], ",", RowBox[{ SubscriptBox["X", "1"], "\[Rule]", RowBox[{ SubscriptBox["X", "0"], "+", "\[CapitalDelta]X"}]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.5020475020160275`*^9, 3.502047536132979*^9}, { 3.5020478049463544`*^9, 3.5020478232344007`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{"\[CapitalDelta]P", "+", SubscriptBox["P", "0"]}], ")"}]}]}]}]], "Output", CellChangeTimes->{ 3.502047536452997*^9, {3.502047811359721*^9, 3.5020478246634817`*^9}, { 3.5020504155536723`*^9, 3.502050427349347*^9}, 3.5020504620633326`*^9, 3.5020518487866488`*^9, 3.5020520661710825`*^9, 3.5023556948087606`*^9, 3.502358321622006*^9, 3.502358366306562*^9, 3.502359434131638*^9}] }, Open ]], Cell["\<\ \:0420\:0430\:0437\:043b\:043e\:0436\:0438\:043c \:0444\:0443\:043d\:043a\ \:0446\:0438\:0438 \:0432 \:0440\:044f\:0434 \:0422\:0435\:0439\:043b\:043e\ \:0440\:0430, \:043e\:0441\:0442\:0430\:0432\:0438\:0432 \:0447\:043b\:0435\ \:043d\:044b \:043f\:043e\:0440\:044f\:0434\:043a\:0430 \:043c\:0430\:043b\ \:043e\:0441\:0442\:0438 \:043d\:0435 \:0432\:044b\:0448\:0435 \:043f\:0435\ \:0440\:0432\:043e\:0439:\ \>", "Text", CellChangeTimes->{{3.5020475451604953`*^9, 3.5020475715200033`*^9}, { 3.502047646517293*^9, 3.5020476609701195`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Column", "[", RowBox[{"serT", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "]"}], "->", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "->", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]X", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"X", "[", "V", "]"}], ",", "V"}], "]"}], " ", "\[CapitalDelta]V"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"X", "[", "\[Alpha]", "]"}], ",", "\[Alpha]"}], "]"}], " ", "\[CapitalDelta]\[Alpha]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]P", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", "V", "]"}], ",", "V"}], "]"}], " ", "\[CapitalDelta]V"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}], ",", SubscriptBox["\[Delta]", "\:0441\:0433"]}], "]"}], " ", SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"]}]}]}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020475893600235`*^9, 3.5020476299773464`*^9}, { 3.502047678179104*^9, 3.5020477241607337`*^9}, {3.5020491864283705`*^9, 3.502049205002433*^9}, {3.5020492537442207`*^9, 3.50204925915053*^9}, { 3.5020492918494005`*^9, 3.5020494351905985`*^9}, {3.50204954833007*^9, 3.502049581438964*^9}, {3.5020496260995183`*^9, 3.5020497749050293`*^9}, { 3.5020500803154984`*^9, 3.5020501643133025`*^9}, {3.5020502423317647`*^9, 3.502050244534891*^9}, {3.5020504047650557`*^9, 3.5020504106223907`*^9}, 3.5020504449413533`*^9, {3.5020518385480633`*^9, 3.502051845351452*^9}, { 3.5020520250887327`*^9, 3.5020520556514807`*^9}}], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "]"}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Theta]", "0"], "[", "t", "]"}], "]"}], " ", RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}]}]}]}, { RowBox[{"\[CapitalDelta]X", "\[Rule]", RowBox[{ RowBox[{"\[CapitalDelta]V", " ", RowBox[{ SuperscriptBox["X", "\[Prime]", MultilineFunction->None], "[", "V", "]"}]}], "+", RowBox[{"\[CapitalDelta]\[Alpha]", " ", RowBox[{ SuperscriptBox["X", "\[Prime]", MultilineFunction->None], "[", "\[Alpha]", "]"}]}]}]}]}, { RowBox[{"\[CapitalDelta]P", "\[Rule]", RowBox[{ RowBox[{"\[CapitalDelta]V", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "V", "]"}]}], "+", RowBox[{ SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}]}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{{3.502050156386849*^9, 3.502050164662322*^9}, 3.5020502453459373`*^9, {3.5020504321196203`*^9, 3.5020504634734135`*^9}, 3.502051848836652*^9, {3.502052058098621*^9, 3.5020520662210855`*^9}, 3.502355694954769*^9, 3.5023583216750093`*^9, 3.5023583663895664`*^9, 3.50235943416464*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IVD", "=", RowBox[{"IVD", "/.", "serT"}]}]], "Input", CellChangeTimes->{{3.502050308608556*^9, 3.5020503172580504`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"Y", "-", RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["P", "0"], "+", RowBox[{"\[CapitalDelta]V", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "V", "]"}]}], "+", RowBox[{ SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{ 3.5020503182271056`*^9, {3.5020504370239005`*^9, 3.5020504664725847`*^9}, 3.5020518488806543`*^9, 3.502052066265088*^9, 3.5023556949907713`*^9, 3.5023583217100115`*^9, 3.502358366429569*^9, 3.5023594341926413`*^9}] }, Open ]], Cell["\:0412\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435 \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:0435:", "Text", CellChangeTimes->{{3.502044342384307*^9, 3.502044351137808*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VD", "=", RowBox[{ RowBox[{ RowBox[{"IVD", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"IOD", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[Equal]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Expand", "[", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"IVD", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"IOD", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]P", " ", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["P", "0"], " ", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], " ", "\[CapitalDelta]V"}], "\[Rule]", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "\[CapitalDelta]V"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], " ", SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"]}], "\[Rule]", "0"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.502044337307017*^9, 3.5020444138843966`*^9}, { 3.502050343849571*^9, 3.502050348846857*^9}, {3.5020507229142523`*^9, 3.5020507264384537`*^9}, {3.5020517659099083`*^9, 3.5020518094173965`*^9}, { 3.5020518644665456`*^9, 3.5020518811955023`*^9}, {3.5020519236999335`*^9, 3.502051939743851*^9}, {3.502052000402321*^9, 3.502052010794915*^9}, { 3.5020520982889194`*^9, 3.502052210140317*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{ SubscriptBox["V", "0"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", RowBox[{ RowBox[{"G", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", FractionBox[ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "2"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "2"], "]"}], " ", SubscriptBox["P", "0"]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[CapitalDelta]V", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "V", "]"}]}], "+", RowBox[{ SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.5020522997624435`*^9, 3.5023556965348597`*^9, 3.502358322879078*^9, 3.5023583673016186`*^9, 3.502359434923683*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VDK", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"VD", "[", RowBox[{"[", "1", "]"}], "]"}], "/", "m"}], "+", RowBox[{ RowBox[{"VD", "[", RowBox[{"[", "2", "]"}], "]"}], "/", "m"}]}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.5020522944231377`*^9, 3.5020523143502774`*^9}, { 3.5020523835532355`*^9, 3.5020523984090853`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "m"], RowBox[{"(", RowBox[{ RowBox[{"G", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "0"], "[", "t", "]"}]}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}], "-", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "[", "t", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", FractionBox[ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "2"], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "2"], "]"}], " ", SubscriptBox["P", "0"]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[CapitalDelta]V", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "V", "]"}]}], "+", RowBox[{ SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}]}]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{ SubscriptBox["V", "0"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "0"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{ SubscriptBox["V", "1"], "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "z"], "[", "t", "]"}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", SubscriptBox["\[Alpha]", "1"], ")"}], "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], "m"]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{3.5020523991811295`*^9, 3.5023556966048636`*^9, 3.502358322949082*^9, 3.5023583673436213`*^9, 3.502359434965686*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:041b\:0438\:043d\:0435\:0430\:0440\:0438\:0437\:043e\:0432\:0430\:043d\ \:043d\:043e\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", \ "Subsection", CellChangeTimes->{{3.5020522572120094`*^9, 3.50205227051077*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"LK", "=", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "8"], " ", "\[CapitalDelta]\[Alpha]"}], "+", RowBox[{ SubscriptBox["e", "1"], " ", "\[CapitalDelta]V"}], "+", RowBox[{ SubscriptBox["c", "7"], " ", "\[CapitalDelta]\[CurlyTheta]"}], "+", RowBox[{ SubscriptBox["r", "2"], " ", SubscriptBox["\[Delta]", "\:0441\:0433"]}]}], "\[Equal]", "0"}]}], ";"}]], "Input", CellChangeTimes->{{3.502052427048723*^9, 3.5020524914434066`*^9}, { 3.502052527295457*^9, 3.502052534831888*^9}, {3.5020525871118784`*^9, 3.5020526017507157`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["c", "8"], "\[Equal]", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"VDK", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[CapitalDelta]\[Alpha]"}], "]"}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{ SubsuperscriptBox["C", "x", "\[Alpha]"], "-", SubscriptBox["C", "y"]}], ")"}], RowBox[{"57.3", " ", "m"}]], FractionBox[ RowBox[{"\[Rho]", " ", RowBox[{"V", "^", "2"}]}], RowBox[{"2", " ", "S"}]]}]}]], "Input", CellChangeTimes->{{3.502052607313034*^9, 3.502052774763612*^9}, 3.5020534114710293`*^9}], Cell[BoxData[ RowBox[{ SubscriptBox["c", "8"], "\[Equal]", "0", "\[Equal]", FractionBox[ RowBox[{"0.008726003490401396`", " ", SuperscriptBox["V", "2"], " ", "\[Rho]", " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["C", "x", "\[Alpha]"], "-", SubscriptBox["C", "y"]}], ")"}]}], RowBox[{"m", " ", "S"}]]}]], "Output", CellChangeTimes->{{3.5020526462642617`*^9, 3.502052665344353*^9}, 3.502052736345414*^9, 3.502052775723666*^9, 3.502053412408083*^9, 3.502355696648866*^9, 3.5023583229880843`*^9, 3.5023583674196253`*^9, 3.5023594349996877`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["e", "1"], "\[Equal]", RowBox[{"-", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"VDK", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[CapitalDelta]V"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Rho]", " ", "S", " ", "V"}], "m"], " ", SubscriptBox["C", "x"], " ", RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{ SubsuperscriptBox["C", "x", "M"], " ", "M"}], SubscriptBox["C", "x"]], "-", FractionBox[ SuperscriptBox["P", "V"], RowBox[{"\[Rho]", " ", "S", " ", "V", " ", SubscriptBox["C", "x"]}]]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.5020528197831864`*^9, 3.502052837395194*^9}, { 3.502053251198862*^9, 3.5020533861195793`*^9}, 3.5020534178083916`*^9}], Cell[BoxData[ RowBox[{ SubscriptBox["e", "1"], "\[Equal]", RowBox[{"-", FractionBox["1", "m"]}], "\[Equal]", FractionBox[ RowBox[{"S", " ", "V", " ", "\[Rho]", " ", SubscriptBox["C", "x"], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox["P", "V"], RowBox[{"S", " ", "V", " ", "\[Rho]", " ", SubscriptBox["C", "x"]}]], "+", RowBox[{"M", " ", SubsuperscriptBox["C", "x", RowBox[{ RowBox[{"-", "1"}], "+", "M"}]]}]}], ")"}]}], "m"]}]], "Output", CellChangeTimes->{3.502052837734213*^9, 3.5020532526929474`*^9, 3.5020533873306484`*^9, 3.5020534194514856`*^9, 3.5023556966848683`*^9, 3.5023583230230865`*^9, 3.502358367459628*^9, 3.502359435027689*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["c", "7"], "==", RowBox[{"D", "[", RowBox[{ RowBox[{"VDK", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"\[CapitalDelta]\[Theta]", "[", "t", "]"}]}], "]"}], "\[Equal]", RowBox[{ FractionBox["g", "57.3"], RowBox[{"Cos", "[", SubscriptBox["\[Theta]", "0"], "]"}]}]}]], "Input", CellChangeTimes->{{3.502053131981043*^9, 3.502053151658169*^9}, { 3.50205342564684*^9, 3.502053447100067*^9}, {3.5020534973009386`*^9, 3.5020535753504024`*^9}}], Cell[BoxData[ RowBox[{ SubscriptBox["c", "7"], "\[Equal]", "0", "\[Equal]", RowBox[{"0.017452006980802792`", " ", "g", " ", RowBox[{"Cos", "[", SubscriptBox["\[Theta]", "0"], "]"}]}]}]], "Output", CellChangeTimes->{{3.5020531404805293`*^9, 3.5020531524522142`*^9}, { 3.502053499643072*^9, 3.5020535766244755`*^9}, 3.50235569671787*^9, 3.5023583230580883`*^9, 3.50235836749763*^9, 3.502359435054691*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["r", "2"], "==", RowBox[{"D", "[", RowBox[{ RowBox[{"VDK", "[", RowBox[{"[", "1", "]"}], "]"}], ",", SubscriptBox["\[CapitalDelta]\[Delta]", "\:0441\:0433"]}], "]"}]}]], "Input", CellChangeTimes->{{3.502053586547043*^9, 3.502053618178852*^9}}], Cell[BoxData[ RowBox[{ SubscriptBox["r", "2"], "\[Equal]", FractionBox[ RowBox[{ RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Phi]", "p"], "+", RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], "+", RowBox[{ SubscriptBox["\[Alpha]", "0"], "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", SubscriptBox["\[Delta]", "\:0441\:0433"], "]"}]}], "m"]}]], "Output", CellChangeTimes->{{3.502053601043872*^9, 3.5020536191409073`*^9}, 3.502355696749872*^9, 3.50235832309309*^9, 3.5023583675376325`*^9, 3.5023594350786924`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:0410\:043d\:0430\:043b\:0438\:0437 \:0443\:0441\:0442\:043e\:0439\:0447\ \:0438\:0432\:043e\:0441\:0442\:0438 \:043f\:0440\:043e\:0434\:043e\:043b\ \:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\ \:044f\ \>", "Subsection", CellChangeTimes->{{3.5020536829435563`*^9, 3.5020536900079603`*^9}, { 3.5020807394941025`*^9, 3.502080781532507*^9}}], Cell[TextData[{ "\:041a\:0440\:0438\:0442\:0435\:0440\:0438\:0435\:043c \:0434\:043e\:043f\ \:0443\:0441\:0442\:0438\:043c\:043e\:0441\:0442\:0438 \:0440\:0430\:0437\ \:0434\:0435\:043b\:0435\:043d\:0438\:044f \:043f\:0440\:043e\:0434\:043e\ \:043b\:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\ \:0438\:044f \:043d\:0430 \:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\ \:0435\:0440\:0438\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0435 \ \:0438 \:0434\:043b\:0438\:043d\:043d\:043e\:043f\:0435\:0440\:0438\:043e\ \:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0435 \:0434\:0432\:0438\:0436\ \:0435\:043d\:0438\:044f \:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430 \ \:044f\:0432\:043b\:044f\:0435\:0442\:0441\:044f \:0443\:0441\:043b\:043e\ \:0432\:0438\:0435 \:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e\ \:0441\:0442\:0438 \:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\:0435\ \:0440\:0438\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\:043e \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:043f\:0440\:0438 ", Cell[BoxData[ FormBox[ SubscriptBox["\:0441", "2"], TraditionalForm]]], " > 0." }], "Text", CellChangeTimes->{{3.502080822218834*^9, 3.5020808406178865`*^9}}], Cell[TextData[{ "\:0423 \:043f\:0435\:0440\:0432\:043e\:0433\:043e \:0440\:0435\:0436\:0438\ \:043c\:0430 ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["c", "2"], "=", RowBox[{ RowBox[{"-", "1.0"}], " ", "\[DoubleRightArrow]", " ", RowBox[{"\:041a\:041f\:0414", " ", RowBox[{ "\:043d\:0435\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e", "."}]}]}]}], TraditionalForm]]], "\n\:0423 \:0432\:0442\:043e\:0440\:043e\:0433\:043e \ \:0440\:0435\:0436\:0438\:043c\:0430 ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["c", "2"], "=", RowBox[{"29.5", " ", "\[DoubleRightArrow]", " ", RowBox[{"\:041a\:041f\:0414", " ", RowBox[{ "\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e", "."}]}]}]}], TraditionalForm]]] }], "Text", CellChangeTimes->{ 3.502081490692069*^9, {3.5020815363896823`*^9, 3.50208161571722*^9}, { 3.5020817035292425`*^9, 3.502081720747227*^9}}], Cell[CellGroupData[{ Cell["\:0420\:0430\:0441\:0441\:043c\:043e\:0442\:0440\:0438\:043c \:043f\ \:0435\:0440\:0432\:044b\:0439 \:0440\:0435\:0436\:0438\:043c", \ "Subsubsection", CellChangeTimes->{{3.502081726358548*^9, 3.5020817342229977`*^9}, 3.5020876267930336`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"c1", "=", "1.2"}], ";", RowBox[{"c2", "=", "118.6"}], ";", RowBox[{"c3", "=", "27.55"}], ";", RowBox[{"c4", "=", "2.32"}], ";", RowBox[{"c5", "=", "0.445"}], ";", RowBox[{"c6", "=", "7.28"}], ";"}]], "Input", CellChangeTimes->{{3.5020817385912476`*^9, 3.5020817890921364`*^9}, { 3.502359311111602*^9, 3.502359360374419*^9}}], Cell["\<\ \:0410\:0432\:0442\:043e\:043c\:0430\:0442\:044b \:043f\:0440\:043e\:0434\ \:043e\:043b\:044c\:043d\:043e\:0439 \:0443\:043f\:0440\:0430\:0432\:043b\ \:044f\:0435\:043c\:043e\:0441\:0442\:0438 \:0434\:0430\:044e\:0442 \:0432\ \:043e\:0437\:043c\:043e\:0436\:043d\:043e\:0441\:0442\:044c \:043e\:0431\ \:0435\:0441\:043f\:0435\:0447\:0438\:0442\:044c \:0443\:0434\:043e\:0432\ \:043b\:0435\:0442\:0432\:043e\:0440\:0438\:0442\:0435\:043b\:044c\:043d\:044b\ \:0435 \:0434\:043b\:044f \:0440\:0443\:0447\:043d\:043e\:0433\:043e \:0443\ \:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f \:0445\:0430\:0440\ \:0430\:043a\:0442\:0435\:0440\:0438\:0441\:0442\:0438\:043a\:0438 \:0443\ \:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e\:0441\:0442\:0438 \:0438 \ \:0443\:043f\:0440\:0430\:0432\:043b\:044f\:0435\:043c\:043e\:0441\:0442\:0438\ , \:043a\:0430\:043a \:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\ \:043a\:0438\:0435, \:0442\:0430\:043a \:0438 \:0441\:0442\:0430\:0442\:0438\ \:0447\:0435\:0441\:043a\:0438\:0435, \:0434\:043b\:044f \:043b\:044e\:0431\ \:043e\:0433\:043e, \:0432 \:0442\:043e\:043c \:0447\:0438\:0441\:043b\:0435 \ \:0438 \:043d\:0435\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e\ \:0433\:043e \:0432 \:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\:0435\ \:0440\:0438\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:043c \:0434\ \:0432\:0438\:0436\:0435\:043d\:0438\:0438 \:0441\:0430\:043c\:043e\:043b\ \:0435\:0442\:0430.\ \>", "Text", CellChangeTimes->{3.5020824206112576`*^9}], Cell["\<\ \:0420\:0430\:0441\:0441\:0447\:0438\:0442\:0430\:0435\:043c \:043f\:0435\ \:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0435 \:0447\:0438\ \:0441\:043b\:0430 \:0410\:041f\:0423.\ \>", "Text", CellChangeTimes->{{3.5020828046372223`*^9, 3.5020828334478703`*^9}}], Cell["\:0417\:0430\:0434\:0430\:043d\:043d\:043e\:0435 \:0432\:0440\:0435\ \:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:0438\:044f:", "Text", CellChangeTimes->{{3.50208303538242*^9, 3.502083044021914*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Treg", "=", "2.5"}], ";"}]], "Input", CellChangeTimes->{{3.5020828444424987`*^9, 3.502082935917731*^9}, 3.5020830258808765`*^9}], Cell["\<\ \:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440, \:043e\:043f\:0440\:0435\ \:0434\:0435\:043b\:044f\:044e\:0449\:0438\:0439 \:043d\:0443\:043b\:044c \ \:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0439 \ \:0444\:0443\:043d\:043a\:0446\:0438\:0438 (\:043f\:0440\:0438 T0 = 1.5 \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:044b\:0439 \:043f\:0440\ \:043e\:0446\:0435\:0441\:0441 \:0432\:044b\:0445\:043e\:0434\:043e\:0434\ \:0430 \:043d\:0430 \:0437\:0430\:0434\:0430\:043d\:043d\:0443\:044e \:043f\ \:0435\:0440\:0435\:0433\:0440\:0443\:0437\:043a\:0443 \:0431\:043b\:0438\ \:0437\:043e\:043a \:043a \:0433\:0440\:0430\:043d\:0438\:0447\:043d\:043e\ \:043c\:0443 \:043c\:043e\:043d\:043e\:0442\:043e\:043d\:043d\:043e\:043c\ \:0443):\ \>", "Text", CellChangeTimes->{{3.50208305759669*^9, 3.502083080381994*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"T0", "=", "1.5"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.5020829157165756`*^9, 3.502083018678465*^9}}], Cell["\<\ \:0412\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\ \:043e\:0432\:0430\:043d\:0438\:044f \:0445\:0430\:0440\:0430\:043a\:0442\ \:0435\:0440\:043d\:043e\:0435 \:0434\:043b\:044f T0 = 1.5:\ \>", "Text", CellChangeTimes->{{3.502082910447274*^9, 3.502082913140428*^9}, { 3.5020830959838862`*^9, 3.502083114635953*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Treg0", "=", "3.8"}], ";"}]], "Input", CellChangeTimes->{{3.5020831170220895`*^9, 3.502083124992545*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalOmega]0", "=", FractionBox["Treg0", "Treg"]}]], "Input", CellChangeTimes->{{3.5020860244303837`*^9, 3.502086063019591*^9}}], Cell[BoxData["1.52`"], "Output", CellChangeTimes->{3.502086063367611*^9, 3.502355696802875*^9, 3.5023583231440935`*^9, 3.5023583675946355`*^9, 3.5023594351206946`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Mu]", "=", FractionBox[ RowBox[{ RowBox[{"3", " ", "\[CapitalOmega]0"}], "-", "c1", "-", "c4", "-", "c5"}], "c3"]}]], "Input", CellChangeTimes->{{3.5020860854228725`*^9, 3.502086116167631*^9}}], Cell[BoxData["0.021597096188747757`"], "Output", CellChangeTimes->{3.5020861188967867`*^9, 3.5023556968358765`*^9, 3.5023583231820955`*^9, 3.502358367633638*^9, 3.502359370843018*^9, 3.502359435146696*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CyCgp", "=", FractionBox[ RowBox[{"c4", " ", "c6"}], "9.81"]}]], "Input", CellChangeTimes->{{3.5020862075648584`*^9, 3.5020862496642666`*^9}}], Cell[BoxData["1.7216717635066257`"], "Output", CellChangeTimes->{3.5020862521544085`*^9, 3.5023556968708787`*^9, 3.5023583232170973`*^9, 3.50235836767264*^9, 3.5023593748132453`*^9, 3.5023594351736975`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"K2", "=", FractionBox[ RowBox[{ RowBox[{"3", " ", SuperscriptBox["\[CapitalOmega]0", "2"]}], "-", "c2", "-", RowBox[{"c1", " ", "c4"}], "-", RowBox[{"c3", " ", "c4", " ", "\[Mu]"}]}], RowBox[{"c3", " ", "CyCgp"}]]}]], "Input", CellChangeTimes->{{3.502086123634058*^9, 3.50208619483113*^9}, { 3.502086256480656*^9, 3.502086274047661*^9}}], Cell[BoxData[ RowBox[{"-", "2.4420867893918463`"}]], "Output", CellChangeTimes->{{3.5020862647531295`*^9, 3.5020862753717365`*^9}, 3.5023556969028807`*^9, 3.5023583232530994`*^9, 3.5023583677166424`*^9, 3.502359376981369*^9, 3.502359435197699*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Omega]z", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1", "+", RowBox[{"c3", " ", "\[Mu]"}]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086292714729*^9, 3.5020863559183435`*^9}, { 3.5020863960746403`*^9, 3.5020864160587835`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"1.7950000000000008`", "\[InvisibleSpace]", "+", "s"}]}, { RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020864083853445`*^9, 3.502086416956835*^9}, 3.5023556969358826`*^9, 3.5023583232891016`*^9, 3.5023583677576447`*^9, 3.5023593802045536`*^9, 3.5023594352227*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Alpha]", "=", RowBox[{"Simplify", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"CyCgp", RowBox[{"(", RowBox[{ RowBox[{"c5", " ", "s"}], "+", "c2"}], ")"}]}], "+", RowBox[{"CyCgp", " ", "K2"}]}], ",", RowBox[{"CyCgp", RowBox[{"(", RowBox[{"s", "+", "c4"}], ")"}]}], ",", "0"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086816999716*^9, 3.5020868435512347`*^9}, { 3.5020870184622393`*^9, 3.5020871299286146`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"199.98579928255728`", "\[InvisibleSpace]", "+", RowBox[{"0.7661439347604484`", " ", "s"}]}]}, { RowBox[{"3.994278491335371`", "\[InvisibleSpace]", "+", RowBox[{"1.7216717635066257`", " ", "s"}]}]}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502087095202628*^9, 3.5020871305366497`*^9, 3.5023556969708843`*^9, 3.5023583233271036`*^9, 3.502358367801647*^9, 3.502359382908708*^9, 3.5023594352467017`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Theta]", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "s"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020871437744064`*^9, 3.50208716481461*^9}, { 3.5020872668724475`*^9, 3.5020872685785446`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5020871654136443`*^9, 3.5023556970048866`*^9, 3.502358323363106*^9, 3.50235836784865*^9, 3.5023593858358755`*^9, 3.502359435272703*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Delta]v", "=", RowBox[{"{", RowBox[{"c3", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020871754712195`*^9, 3.502087221239837*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"27.55`"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.502087194501308*^9, 3.502087221840872*^9}, 3.5023556970428886`*^9, 3.5023583233981075`*^9, 3.5023583678906527`*^9, 3.5023593881410074`*^9, 3.502359435298705*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m1", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Theta]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020872461072598`*^9, 3.5020872800412006`*^9}, { 3.5020873135241156`*^9, 3.502087319207441*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1.7950000000000008`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"199.98579928255728`", "\[InvisibleSpace]", "+", RowBox[{"0.7661439347604484`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], RowBox[{"3.994278491335371`", "\[InvisibleSpace]", "+", RowBox[{"1.7216717635066257`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], "0", "s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020872724027634`*^9, 3.502087280702238*^9}, 3.5020873204825134`*^9, 3.502355697076891*^9, 3.5023583234341097`*^9, 3.502358367933655*^9, 3.502359390716155*^9, 3.502359435322706*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m2", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Delta]v"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020873377695026`*^9, 3.502087345456942*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"1.7950000000000008`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"199.98579928255728`", "\[InvisibleSpace]", "+", RowBox[{"0.7661439347604484`", " ", "s"}]}], "27.55`"}, { RowBox[{"-", "1"}], RowBox[{"3.994278491335371`", "\[InvisibleSpace]", "+", RowBox[{"1.7216717635066257`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.50208734629399*^9, 3.502355697109893*^9, 3.502358323470112*^9, 3.502358367973657*^9, 3.502359396988514*^9, 3.5023594353497076`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"W", "=", FractionBox[ RowBox[{"Det", "[", "m2", "]"}], RowBox[{"Det", "[", "m1", "]"}]]}]], "Input", CellChangeTimes->{{3.502087352433341*^9, 3.502087360735816*^9}, { 3.502087393166671*^9, 3.502087413468832*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"110.04237243628947`", "\[InvisibleSpace]", "+", RowBox[{"47.432057084607536`", " ", "s"}]}], RowBox[{ RowBox[{"207.15552917450427`", " ", "s"}], "+", RowBox[{"7.850823241590214`", " ", SuperscriptBox["s", "2"]}], "+", RowBox[{"1.7216717635066257`", " ", SuperscriptBox["s", "3"]}]}]]], "Output", CellChangeTimes->{{3.5020873971628995`*^9, 3.502087414114869*^9}, 3.5023556971428947`*^9, 3.502358323507114*^9, 3.5023583680136595`*^9, 3.5023593990936337`*^9, 3.5023594353757095`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Step", "[", RowBox[{"W", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.502087426669587*^9, 3.5020874432115335`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVVHk41V0XvUUqU8RFQriiTJGiSesUpVQqSUJCRSVSb4YoaVAUJa9KipDK WFEkSaaKDMkQ4neva7yueR7ffPf76+zz7Gefvfda6ywlx7PmJ+bSaDTZOTTa /88oP0cB3eN3NvNCmv+q44ZF1Yq7DymeAk04PGxiUBGz33KvKypeBG15jtPT DgLRsMy3gvXXQHPrdxQZM0dUXsiyeYpBIJJfE1Uq7KHZf/zurPM9kE4zKQet 06BEo//O1IWh2eOfmN0l56HycqH+1PQDKCZqPXvgexFnDD1cx5c9htidcqe/ 4f54V9McP2L0FP7hn7/bcG5gymV306DzM+RpSSc2ZwQhZk5T0Pi2WLzlt853 m74L4/L7y8fq4lBP0zvmZBMGToRJ/sipeCyQisuqPv8Awcf/sx2efgHvsY6t JQURqJ4+GT6wLBEy5a1RT/li4PldQac/LQk51Av2zZlYyP5bU9prlIIcvz72 okXxcFQnfN3Ob2A1abdf0S8B3ilCH4fq0jG2DdpPDNJgGtYhMBTzDi/HSpWW hqZDzjvfYvDUe+zOcFKxGnqHPCOvgf7pDEgtSmuwr8rE/MYWtd5lH3H3jt/+ 2pEc1Od99ujhfMRqouHmfi8XSS8jCrvTsrG9R+7PKpk8mJ03O8o1yoHfJ7ua z/n5eLgw+2Gn8xfITD86YqD7FYufFs8drCuA2xHHeIv9ZZgWzUx031QIRT/a NhuDcrRdfb5vIKYQR+/dcVWTr0Cms190/6kiyAbnH9vZ+RPWems29E1/xbe6 X0nrs34h9sezc93LStB+Rnx1qXQtRiIy1FnBJYhwettN3azFdufS1qrJEuhK lu4yHKlFD9/4wezqH9BJ6ToWWvIb6wzNNgTdKsPDGQ93f9t63BE6PnxppAwC /gWPuZ/qwWy4mOLuUA5+Svua1JIG3PB8oWC1sQL2qcHb/csaUPlmZq5a/0/4 bpoWdZFqxGIstBPRrkTHmsbKZMdGbFQN33DreCVOmfDN2qc04u5I4rDPr0r0 N0dtl1zXhKzGNZUj838h8Nvhe4I+TWAXfElx2/wLPR/3RZ/42IQ192tPOCb/ gvE580hjHQp23vZbm9i/kK3FEC12pnDraLeCpUwVhP8Om715SuGP1pz6nQFV OKVu0Zb2lwIfPfh94acq6BULJ1drMKE5I3XfcKgKVcpusk6WTFz5oWmqe7Qa KwZicoeeM5GQ9kE1+UE1zonnfpv8xkRVxFa+5WXVyHhRL3Gnk4npK+Ws6Lk1 mC4oaH89jwUVZ6scmfU1YC29o+2mxIKZWWtE2Nka+AQVB1dtYMFrrZuH8Msa vNySv61jPwsxcpP7bzbV4Ajc8d6JhR98N7RpErV4edxlyuQiCyNcUSGfnbWw ZKbcSQ1iQb7qcefwlVrU7d/6cPARC9s/qhS5ZtbC2rbNWCmeBfeYNzGdPbUY 43gbmb5mIfLWhssOjN+oab6W5ZPJQqHb18ONh39jfsbVzfk5LPQc3Kd/MPQ3 PA2NKM18FqQMGxf//PYbocfU+coLWSAqTv07/vsNv4WufmlFLJwSGiwt0KuD ScQuTy4vHzbkm7DpdB2WRRgfD+TV5zQIBGTG1GH/6+0iTz+z0JF330Gnrg7X DrT66GexsChBbnOSSD2kgm+MnExjYd29V7IqxvWwbXk1YZzIgqPn6vEon3oo 1CvqNz1jIfjI52rptHqkTB4PIA9YyDDe8fZ+Zz0c0lrZ13l4MDWqg4UUGjCv z+VY1iUWFkjYnQqwaMDmuFiDATcWVk9xts3ebsALesATQ3sWbNj/KF/Mb0DH kEht+j4WXr8Jajyj/QeHmH87j6xigbuYG2zq8AckPN6Io8CCmqfp5hXhf3CM nvBhRITH1yah2NbJPyhe8Dq/gstEWEmwk/XXRlx+U/NXPpaJCs1e6XUTjdBe v0pq310mhEL3lNA1mrA6IljEy5eJG5aimr9Cm/DOLH3Zn4NMeLbeGzSxpeC7 Mu+bkzAT6dsH4pbfo2BkdUDg3RSF/sR9FnwFFMRqa07ZdFE46S7+IVeNiUoT wQv93ynEV587+dSaicxe//LBDxTY+lVLfEKY0AqsTL6cQMH6v7BLa4eZeG7s 8NfmDoWH9sNaEqosMB6IJRRcplBdeIA1YMXT2alqw0Z3Xh+196EVd1iofavK /+Y4hd23Jbem5PJwqprt2H6YQmDvheGgQRZ+LzztnWxGwTHhdJXe4mYUrzXq bzOmQPsjmxyn0QwTWRnV6Y0UngmVXhff1oyGvmWRo3oUNhv62vrbNeOV7KHT jZoUmtw01vZ7NcNwIMvynSoFn5hGEbv7zRjUi/hyXYmCTNWdjrKkZjxbJfXC XJ5CJt+mLxuLmiEgmvVyuSwFi7U9j5KoZuzTkeWbK0NhyOmp+5LxZvivyH/U I0XhfsTunYFibHCm57O7eHedHzNK4yvZ8N+pMfWfNIWK6ZSpE0ZszHDcozR5 753ROlJdY8uGaaiLykVeP8GjIilGnmy0ClgHdvDmSQj9fCP9HhshzrGOXmoU the4HlFKZGNDt0OvljaFtmF5/dACNl6lLecX1qdwfXmF6GwjG2/HElQkQEH5 kF+n6ygbpfKfzhrvpJAXqJ3XJNoC2oRBUowFz8+ymRG7VrTgyXOZzSscKMx0 3z2XvaUFF+yfbGx0oxApD9OVNi2Ie33V+iOPv3V7+5UjLrRgaOHx6fwQCh7p e2s8XrXgceP6SLM0CpJtsylteS1otHme/rOIQjr9bcCBPy1gu6wI8Gig0Oct ZqAr0ooQyR8yqgJMBCflLYpRbYXUgZ6LGgpMqDe5c0RJK2KLh+pNDZhwxq/H PedbEWV7MaXkDBO0uLHsxjut0Hlg/jg0kIkIfrmmH/GtSHDtmmv1goniEieF xN+tGPc/eqiOzcQKi5m4ExvaYLMzwJbO87u8TKUiiwNtCKko1jnK+89WS0za jc604YBpzo5rqSwEMu+rKUe3Qcdrz2rDCRY4J9VSmHPasdunXcFtF4/n0t3l 5bLtKFff28iwb4aM9vm+HL12ePvxOWp5NGPHcI7OkxPtOC9dtFc7phmJl80z DpW0Q/LITfFbk804HXY5tzK0AwHy/6b6ZLIxdzSO9SWxA7dGw91KKtiIPFRM e1PQgVE5TXe9TjZ+yEkYhYx0gLP0tPgumRZovEr4vtOqE6kWHjvUfFvQ86m6 smAZB4QZ6fCSh5tb+8rW96+7MKc6PWlNZhua7RoW5Jd0ISNVpq2gnLdnfaB2 eVsXbjgojCxsb8O60s6L7bJcqExsk/m0uB18aS/EpG5xEd022+p7uh2e6gf1 leO42GrmdDLuSjs4z/lttT9zMZu8469HeDsqHh57tX2YC3Nv/jrFz+2IuKS0 2etoN2JSb9v8I9gBwbHKY9d9uqEgIpbcL9eBy2f9g+496Ibvs9WK9FUdcHRk 1bwq7caJkE9fbMw7oLkjyqXeoAcwrmthhXcgX2LJ4/VivWDzzWjZCHZiTUhx 7jaNXtTVadxLlO7ESwHvtv3beflLm0ZSVToRPPl71elLvfB+x6CzDDthyQr/ FsnpRZfL1eDFrp0otjLuecnXh9vUBlvi3YmNVcPi7xT6IGf+2n319U4ofjU/ UmrRB12/gXCXiE5wk8RGpvP6MHp37JBrXidsVfKWLGjqw902S7+Jkk78jDoL yfE+XLiiani4uhM8N7utqdUPpWa9rPj2TlzxDFY68rgfRXoxLfELOBBUuqHG WjeAxbsKPxwy5aB40/1VftsGkBFT3Vu6n4ObVtEG8uYDCK7ec2rjYQ7mhmaZ 2LgMoCLus53ESQ6m/vY410UNYK2nr359AAfdTQcTfs4dRMUF/w3LCzlImnB8 67ZoEMUquXlSpRyclHTPEpEbxG02H1uumoO2XbeLd60dRJxkyqxLKwdN2bmc 786D+Nh/7IP+vC6URaitzCsbxPL2yIGjZl24/X6N7tGGQfzKXqK11KoLOyq3 rP/bPohgvidTkw5dKJpvu3PT7CBMaFa2Kp5dyPEMPZWlOwTW7UDxdTFdPJ1O Jr59OISN32x0wqa7cMZdIH3v8yEIjudEJ8/nQj1YIrvvzRDUjIN8uiW4eFmo 9UOzZAiJynnPKU2eDlc7chOmh3D+Zlr8dXsu7oqVqsfaD2PRBb8czwouPhrI Z5i5DSP2de/5vxQXbXZnMeM7jBufw+2SernYmCphcejRMISFh0VdRLrB2Wl7 WaRiGN3LJxP+MeuG0fXenxc3jiCcFrE+ubYbE6OLPMylRpFxVn+b0UAPGPKO s7OMUexSyrq7bG4vzIzfB6XqjqJVpPX9lEQvXoRZRS/YM4p4wwfLEw16Yb4q 9nvu9VE4fldKKvbrRerJ1bIag6Ow3PNhvYFQHxwbLb7wlY2BahqIvCrdD8En bNdzDWMwLlqRa6LWj3RrNzlWxxi+u0bnjOv3g+/PrYvZc8bhrOb3VdKyH/H1 2XrnDMahvmW3+JZ/+9FRq5jAjBtHhxfiMvgHcLqyJ/TjxQkURBQ17v9nAOe+ 3nA8qzYFO9fU6ncYRJq78AGZnf8h+vAm69P1Q4j1deHqHKKR80ohbL9PI7j2 bGb/SM8ckuQyZXnWcQy06maS48NHvJQ16vYITED1gpO3hfo80nEiU1To9yTa Rh9ZCn0WILcX7Ot1uTIN0/bTl8POLSDJH9dTtL3/wawtVENBQZCUHBqJtZWe BbfQ0b84VYi4eT/6FXWURrTFf8sbHRUht+REDg5tm0MEMerQNCxKCqTnP5yQ m0tMeq3HlQ+KkU+69Oj8eXykvuD4HGtNcWK5RKHbnctHMgKL7BRHxck5XZOl BV/4idM8j+aKisVkfsWmSNqreeTYed8M4UgJosIpbBnwEyCrnDUqdjtIEpqe 4ZcY8/nk52JNIY/1dCLWZb9727oF5NPra080+aRIXNGjrHDRhcR3jvq+MkqK sKzNXBvGFhLBJp8dbu+liX65g3/zH0HS/lIp/NklGTL+YU5C6BshEr5iCf/H g0uIzlWLb/oPhUlopNN3B0VZ4uTscDvAVYRYhx+pEO6UJfNDJ9oeElEyYfxi 8lnuUtKk7OUevXwRaW3f6l1wS470cvmemk0vInGGukvLHeRJ/+MTQT7nxEhq gIe4s5YCue5ktSiOEiO3Dh7bxTeqQJqFn9cmmYiTtU2xibfKl5GKvZ5fXmeL k4iVT1LLdykS7hbamIDqYnIlLyRi10dFciSBf5915GKyZ+nBFz9UlEidnE3X XWEJssXtu414kBKpeT3yU9pLgjyTc1QpG1Uie5aXNTzh8nAsfPXQzEaZfJDl 171gKUlCtQrUq3KViWNSwHetPEniNMz/q0SdQU5qrr7asppOHNOGFIPuMYjh ma2B3VF0cubagRnT+wwS1GjpVfKMTjwOvK8T/pdB8kxdnF7F0kngqMfd0IcM QlsZbnzsBZ28Xj85/SiKQQTa22mNKXQymT/7+2Uyg1w/EnTxxyc6Ca0SDin6 ziBz7StPJzbQSeRz15M3Sxjk7K+2w7ca6eT5hQqjHaUMImg0ueMERSeZUqFT pRUMUqaqrKbEppMma4mT1bUM8nTgn9YIDp2otS4xamllkPIQadvAcTrRee+j EN/OINZzNXc5TdLJhoDGyROdDCLvRTYYT9PJbrWot11cBlnvcEqGNksn510U FQYHGaTE4FONl4AUubTp6mT6MINwUn8WHlwgRQJEWmoujDLIWpW2dD1BKRLx 5vmdiQkGsRIXud8vwtOdP79z9hSDaAcq+ZcvkiLJ+09svTTDIDqza88mi0uR 98rf5Df/5c3jaWoXJCFFcodVJ3kGRdJ67fY406XI/wDeFrnD "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 5.520901879233336}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5020874464347177`*^9, 3.5023556977549295`*^9, 3.502358323908137*^9, 3.5023583684176826`*^9, 3.5023594040239162`*^9, 3.502359436511774*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BodePlot", "[", RowBox[{"W", ",", RowBox[{"-", "2"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.5020875243681755`*^9, 3.50208757812825*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnk8lN8Xx8cMX0tKzFhHmjFPUiQU+druJamkIpkWQpIsWUtJfS3RRqmU NSUlUUhSFHJEllIp+x5ZSpFl7Nvv+f11X+/XfZ17zz2fzznPw3b02nOUSqFQ 1vFRKP9fbT8MP33uLgEDx2qPP8NG2FTy/BKGiwTMBQT6vdM3wuoOdPdTThIw P6kZWK9jhPkntNbqHZIA/ZP512fVjXAG+2xa2S4JiLTZ9GIr2wjP+gs8atSQ AK3/GHOdfEY4YbXcvflJcXiQ/CV6eSnGjWGbb2wPE4eZ4vZBny0YH1QJCHK7 shxkD2waVHIzxD+dX77nGopBcM2h8xc99HF0zB014RNLISAoXKQ3QBdb39ue +Sl4CdihH01CdjrYyHUH49szYTBK971oeVQbY1HJmz/zBKHnWhK/l/FGnP+Z lr2+SgD4mBlqT9ZoYtu9pnmvZmmQ72j2XVVLHdNzLOp2C1JhwG7iV8o6VTzx LatZeSMF/HW2Mhi6yjhFyYl6tG6u2GImgH/RhsDn982cSxydKhax2/TpuioL 5y/TqbSyGi/OrM/dPHVTBjNOCaD1ziPFzbkq/8prLsfvdXR5jVK/i83PeCyx Z1OwRFT+Esu+H8Wcod9O14JLETc2g0dsbCouzVCpPbx0vvjrVtE1u3aUFpuq 3NHZdU8U8vQu+smE5CPxjua0Y36SMLeFZZiVWI/W3li56l0lE05UxnWdbqhH VhUPoso6mDBgJn7BaHkD6mIYrHzDY0Ljbmp1XWgD2mWffCSQJQ85B3oOzLo1 ojPHXuq6nZYHF480v23/NqOtJQUaZYoroPa2emZ3fRtyGnaQW+ulAGbS6RYZ Yu2IcVfD2D9UASCezfPb3o58Cu/N5sUqQNY9CT3honZk12M3ugQU4HIar3J9 SgdyPV4Xz798Jay0s/U1/Pc7kn1vqKmWuRLqfViREYLdaM2GaAtBTxbc0Ao2 7FTqRl8uq/fw+bPAbLpzSNO0G2UPOjLHQljwNjhpd0tYNwqOU9z3OpoFqdcV xNdQf6Ct1PWb6gpZ4J8pf7t87gd6++aSsYEwG+R+ySTwjfaiwpSRpicJbKjL 8DezFu9DwT7v590fsiHSu2kmTb0PhfGd7lHMYANtKtbGwqsPid1PaPMpYsOf f6RXJP3pQwa7mUW3OtlQREje1+/vRy266We62Irg4CCeerrtF7q1Ljn/9D1F +Nn/e1/e9C/0M3Yqz/mRInh5lQtPSg0gMCiXMs9QhMDAsx6nLAeQSEtZx/Rr RbiT2LvRr3wANTR3inbVKUJD0+tS3+zf6Nmi17VmIQ7stHTs8ggbRO80Vzda uHKgrkn/VmbyIHquzdalenHA1kF6y+DbQaRdX2KffpIDbl7VacenB5Gqe1Bn UxAHLl/T9nb3HEIxQx7KhdEcKKsSWXTZ/xfxWOtirxdzYEXygWWaMcMoMTyF uXUJAT0FWo6XU4aR8bc1B2+KEZDRIP6qI2cYfVATXf2VToC+6IdDEV+GUfHh nn0a8gTYntbN7BEaQfZ5DpdPqBKQuJNpHnt2BDmmayXPmBHg5DKZNHhlBP1b BHZ3dhGgGlo7tjluBCl82rNPYw8BhfkRd4ZzR1CHzI0f+gcIaOXMDWwfGkH0 /EPVX50JkJtpuzLnMIpi7ti0DgYR0M143b7HaxQtqP5M6jxPwJP10Rrp/42i eplY4/ILBOge3dlsnTCKlhw/IewbQcDBmiLlZ7WjKIOd/ds4hgDF3/HnBLpH UXiv9nBLHAEDAqdqbIZHEXoVnXTsDgEBemr+QkvHEAzRe+zuExCfeq/isOkY WpZK2VKWToBDSQAzf+8YMhx60EXJIEC5jeu17MgY6rJtHNHIIiBfXEy6IGgM 2SvTLHxyCGg6F+TMeD2G6o/e2uj0hoD7sTZv3CrG0C5136TNhQS45GxaVlI/ hlyEaMbSbwmY6v/70mN0DEk/qlx2p4QAGSsHgQoVHmot4OujVxKwcn1k5V49 HvJ2qNfLrSJAaUlhRLcZD1VkGTibfiRAq1RaYsGVhxLvjYriz6ReSVvqI87w UFb4vO/jLwSYnD0RJ3uFhw7ekgmhfCVgz4YvClppPLSt+syxS7VkvcTmu97l 8ZBuuaPyyzoCDv9e+8iigow3vu9YV0/mW7HfpaOBhzztlER6GwjwfnhR5Xgf D3V+fSfR30jA6aDcoelxHlK1lvduaSIg0Kb7+SWBcTRJzZEsbibgGt1Q5yEx jhICyv6xbSXg9l/3WfWN48i86oQOo430z8f4t283j6P5f0oDi0h++LgixNxq HBl/Ply9r53UO3TcpMVxHPma19F/kJxjzxFy8R1HcfG+W+07CHitZ/lxPGQc vVvmcqCaZJAOigy9OY7KE3L01nYSUDmWYSmePI4OSSp+9yf5y5cWRlL2OLp5 Y59OPskNT4WaVGEcPUwr0/pJcscl7TtvvowjxW9PqoS+E9B7xMluW+c4ck2V 65Ul+Q+KYjcMjSNPtTF/JsnkiO05sjCOylS6/JaSPDs5+Hhk6QSas7er/kue R61jugetmEAm37KPvyNZJHu72tJ1E2gtfcD0AsniV0+PJOhPoKrAPjMdkmVc HuUqm5Px58xdWsn3sExqT7+ymUDDxRGRniSvZvHpmbhPoPLgtowRsh5qc2oL XwMm0PE3hjlOJGs32ZbYh0+gLMcz1yrIehrkhocNxk+g7cmy6+RINrmRv/Vs +gTaKeAb9H89zI/3iQi/nkAn8uN9I1sIsNrG+BxTOYFyst15z0j9DhLGN4mm CVTTeWEUSH0dKd57c/onkMzhbQdLSP1d2+5K48kJRDyqk3lO+sP/9vRdG6lJ 5Nx6c6cd6acg79WHf62aRAsVZYlM0m8Xza2J01qTaOplKa+C9GM0//MnUXsn UbDzbs9B0r+J3zs8WE6T6EhWubPzJwJSCkU1sk5MogP67ZKfSb/nnHTJq4qa RNdNCo1dyf54YxETsO/BJKJ66UUnlhNQolpm0Pt8ErW5vt/6toyAmp6VZZSv k4iPYXiiGggY3NtYs0lsCp1HC3bi+QS0RL27XbBiCiVYj63oeEn6pSZzP1Kd QnK3proSXpD3m4d9N90+hb6PHVPuIfvd1kRj2Dp0Cm37dMz9RQoBZuflc5tv TqGdr2TEF5IJ0AFB/0P3p1CLUgFdJ4kAhn7HolPRFCp/0tJwJp6A6g0RYicn p9Cjc2ENGtfI/H1O1U4KTKNUk9h+3hUC0p4djj3LmEbz1y4mpl4kIExFZ2Wo xjSK9KTfqCfnoT6nVy3KfRop0SW+2/mQ81oC7crunEa2xiwtIUsCEizWSmwc mkYbJZ+5pZsTcDlSsiFvbhqtMRuM27SNnM8ifw4Vy86g9h5bVzlEgDw13uOz 1QwaMKBenVAhIGJk9Oqfihm07kKi4SAfqef6Dgvvhhm09Y+/x+45Djh7VDF4 PTPIJ8XsVuIEB4x/JSXO8s0i0/022pMDHJj5bp4hoj+LdIvW9qV/I79PNakf lbNnUa6Y9/yPuxyI+/Jj4UfxLCr4VjtlHsOB959ZmklfZpFF1zn3hEgOsD4l xEn+nUVBHM2urkAO1FdFHqWqzaEzz0qlV9hxAJeeWmx9OocKH0VK06U54Pnu hWZswRzqu1xgmb6UA3dKho/u+TiHFh+dc2Pxc2Ci2K26cmAOvTr/wiB7WBGe FtrFv1wzjyxC807trlQEqVemG64/nkfM46K/9vgogsnLUGezvHmU0p6Z3XRU EXxyIV6gguR9F7T0DipCdY4u5VzfPLq5Xsgh2lgRQp6pfXJZtYCWdY1eiRFX hD9pUseMHy4gypiNQWQaG2TTrBLmcxZQmHr257fk/4jp4xuf8t+RnLsjt+Iq G5IfiWxc372AEgq6nA97s4H7YIEiz15Ei1IhYxlabCi505cwfm8RtQfkt7nn s2DUR2L7saxFJFpDjO1OYwGxzXCyqWgRpQwPiIrEseAyL9qqsG0RHajJu714 igWPUxUvGi2l4E3Ttld/a7LAY/GrodAOCv4pG853aMtKmMlWz44up+BSR8LF rEwe6Imml3Z9pmCZjUO/LsTLg+olWzvBBgrGO3S3nvKUh0OHLoue6aXgoDGd gbPS8gDC311s+fmw/xojqd3OTLjkeJ3NMebD1343Z2yelgUGYygqu4gP71VW e1UvLg2sbEe3njI+bBvVtuV2vxSomjcayVTz4Tb7kKp7RVJgEgbDQS18OCYk kShwkwI/XtSu3ZN82B3C+1d8kITzNwSVQhf4MF04/IDpQ0mIVD03/0qAirWO W29b8p8kpDodzVBgUPG5j9PT8ZqS0FC3SWRInYqb59Ylr33MgG7vjC62DhXn 9hdsuH2RAUOi7NfWiIo/XPtnPfUYA/7ZIuJStJOK/32uenyVCgMkugLRyF4q Vnvuvn9qGQMU/huTWmVLxR29szwRHh02vWx7f9WNivHha19U39HBxNLyLvhQ sarW3XU2T+lgMfj+JM+fih92/nERjKGD7RVdc+VgKl5e0qFvdJ4OLquecWwv UfFmygFHGW86nCzhzF6PpOL9BpmhifZ0CD4U9600moq9nratb7egw9Vp0SeT iVSc9HfLp1+b6RAXHRKikkLFw3XVEV916JCiMbHf/ikVr46P5D5cT4fsT27q t3KoeJWRznsPZToUunYKVrym4i0TUksRhw6VAns7Z4CK01vnRggWHeqSK1+p VVJxH0U6T3UlHb4bGEQ6fiHzE6kVO0Lu/2l+fjSmgYoNynjL68j4aT8lgw/t VHxDYp4dsYYO/0jcYSz0UHGPH//fKA06SGSJ/dH4Q8U1z1VsxvXooGAWVnp0 jIrb+spOFGyjw9q+qYT4GSqWzeE6De6jg/Z5D99PfDR8+Va8e5QrHYwVurfz CdOw99y1r9n/0WHXGy5bazkN582Wd+y8TYeD3I9TLtI03BdJrffIpIPzKKpJ VKBhYe1Vv+hVdPCNzH1cs4qGL91+YmjcT4fAtWuC+NfRMH9RXM+0IAPCy+9y dTbS8A6rxVpdUu8YRwm143o0bLhMcJhmyYAHCxcF7hvTsKr7TUGrMwx4o+2d K2hJw7y4WrrfVwaUf+uJ0NtPw0JyP50M+SThm+eBI172NJx1vvV0wAZJGEg1 lmj0oOGrTRY1qkmSwJSW9E4Np+FR+9zMU1FSUH5Lc9EvioYnXOi0yBYp8F1u EbklgYZXfP7IXbVKGj4IR2T0pNNwoEkVvl4iDQFzlF+KVeR5f+n6uyRlQemM gv9oDQ3bbau94eolC9/G9QTfNdHwRQ++j54fZWHN31OrDv+k4WFXg56+y3LQ 1PXncJIgP97xUnzEnuzfMDuREU8xfkwL5qbdDZQH9dbVwYbS/Ni/doil3C8P l+oc77Ur8WND1y03mwtWgHZFUwvTlB9naFNRic9KiM4os4oL48c/qtrX9Aaz Qcz45KbwQAEc2Dx1932dMjSmB0mpWQrioDX9LXI3NEFp9KhVspwwTnCISvF9 tQkcHcMCqEuW4LjHfhF33+iDr9ju15wWUWw8coF2/BoGrx7Lbs2aZVihRWWz Sp0xsM4Gi4fsWY4/lz7qjO8zgR0n3ztY6Ijjnpdn7n7tMwXPEKVHMRoSODRS RUdg6XaYyTg0ri9Hx1ddGsfsl+yAc3+ydQ9KMbBQd7mhheZOME4cUetcKomz T3qs+LFzN/i6Ca0v40ni1oLicMMHFhBnrkew/krh6vBon7M5lqC802RVW5M0 fjPFkw3K3gNzRbr1i0UyOCMtyM0z3QrKjXcGJLySxWX0PVkn8vbCTK+WSvQ9 Oax4Yb/m4RfWoK2fTUl+IId/XT8oWp5nDb5RaxsyUuWwxuPh3rWF1vDLcGVI WZYc5tm3xfLKrKEpVqhx7K0c/mZTNXGpwRpebm89v6dTDhvJPEvOmrYG78zg FjEWE8/coj2fRVzIoM0+YxJMPHRkaZCDCRd+HvC7sFqZiascSs3fb+OC/T9u 6kidiXNDtfsjLbmwy97qoidm4vboHTKKR7igIq6k+cmBibWHity3XeSC87H7 gs1OTNz5s2FjZjgXHhTJtfe4MPEHgdR58etckHMTuzznzcTZUy6RrbFcECqd alcJYWKZdzczPNO5YCJ74sWmC0zMbXA/UZvJhWCvwcubrzBx+C2Krk4OFyaZ 3RtsbjJxqbZtOV8BFzR9bYWPRTMxRYO46lzMBc/Khg7feCZOm0uz/FjKhScK lrmBd5lYkf1bSr2SC30nP14JT2bi98Tv1tvVXPgfbbAoIA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[100], 0}, {-4.605170185988092, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[100], Log[1000]}, {-91.1965856357884, 34.5053535492187}}, {{-4.605170185988092, 6.907755278982137}, {-91.1965856357884, 34.5053535492187}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k41F8XAPCxjp2x7yTKlgiR5HszQ5SUZSbKzkwikUSpSChFlBYq2SpU tiQly5xKtiiVUCHZKr8W+7689/1n5vk83/PMnHvuOeeZWeUT7MjkJJFI9vjl /+9uzaMPHwWKg+GySfy1wwywljojKOkvDvElByMSsPW9JALD/cSh0P+d+wls 7mlj7c3u4vBSbpLXG7tw1YmCOntxOHAgqUkHe+EYz71OA3G4IuLPyw5hwM21 8plLMxTost4o1h3MgLjQh0uekxR4KlIS2op9qMbc/eUoBZrG/2uoxbZ08lQ8 94sC1jJntudg/4q6e1PsKwXoea3FTGzTDr201bUUCPXT/fXfIQZ0xlEv2cZR gP+vcOufIAaEepIkPU5TIEJ/XKQbW8isJi30JAX6ZQOJZmz0b2PWrTCcj19H YB52gat28R8/CtTOlYy6Yx/To7RctqJAaYHKraaDDJDt6iV/4aXA9EDfZGog A8rKbiX+5aSAp8rIcBS23UUXUa4VMQAe6usA7NOWH6R1Z8RAJ/S6tSX2z8LX GlE/xODddI7raAADKmMKqWqNYpD7banEBnuvTmR0wHkxUAP7lF/+DIgsIse+ iBeD7uOZzHbsW+uvnZU9g+PPJ2iysbsNSy/WR4rByZjBI1ex3c2Hb6kdFANF hXplC2yvnY7PvtiLwQYuuycX9zNgf7D22HZJMTgn1+KjxML5sJ68ZliIguz0 eMi8DwPyV1xStExEwXqR7daHzUpfdFlcLwrmYcoG9dgDTdTfOatwfMTmK5ex e3U/iP/hFoX/PtwxW4v9cfyvZ+wbEch18uSy92ZAbZTmfImLCNA+8PUneDLg lEzLqzMOIqBe/fpJILZ5afBF+nYRePDELtgeu/J7herCZhHYeXPvFQnscprV NmsVEeD80pOR4cGABwI+V7uHhOEG63j2fXcGXLt+S4//iDDUdqGa4n043v46 QoHCcFc/lZ6I/ZH3smOErzBEKXu/2Y9NiTgbPuQkDN2rxuxVsS/uOVz7wkgY BrzVy1L2MiBedpt95LQQ9N1gN+93ZcDRm+NB/x0XgtRB4Z2LDAbQM22LWk8L wrKmkW+xA77fe0O1548LQhtlCMVhFxbGtFmFCsLsMm3WFZu7qnKixlcQSuPO TnBjl3VqmRVbC0LWvU2yrrsZIEYRaEgWEoS/gZYLc/YMeBPb3LcrXQD+BmzS VLJjwPQF1rjgZQHIrhyY+rODAWqpnNyN5wWgN/9Oei12ZLbZWnRCAEqcGt08 sTVrHgTpewiAYa3L18ztDDg7fWFeTF0AtPjYyVK2DNh6YIfkhxJ+eG10oLTP igEtKRaHxvP5YXMv4ZuP7VJh0CiezQ9Tklk9QdghXLInnS7xw98iWc15GgOy bw8OtIfwQ/GGTmExbNKHU487DfhhWOXFiL4lA8Cs1LHnMR88D8vfbWWB58H7 TuHSQz7w2nE/jhu769x1XuW7fHB88OOxV1sYMNp+8rnHVT7YO5ufjbBVg23V +sL4YLOPxw8Tc1zfO/1j/cZ8eA+0ysqb4XkVkrr88ykZtqT0mz80ZsD2hktF 60rJkKRhY++L7XxGqDm0gAzbc5TlFbD9Z7m4ltLJkHaF0nfeiAEpg+NhlEgy cNgXKPkZ4v6tbnMxMyeDt+KF1YIGDDgZlKSaBLxQozcRuEqXAc/ecpWub+KB PUmx6R6rGPC2S7Vl7gUPqPzda8SPPdS/5eer5zxQTzGPfazKAPGZCFWXQh5w /s27iYx9UOX3pdMpPLB0VXXpgTIDVoW0H35P54HRnLv3BxQYcIFyz/BIPzf8 lPibLiON66vwcteWr9zgYe8o+EyKAU81vgWS27nhX3bOWhfswU1yd2+95oat 0S1uaZIMsPC5KFlXwA2Fz9tKKRIMmCg7OiUZzA0t7zOeT4kywM3Z+mnFAhcQ 3eIqx/nxPJx6rjA0wQUhyWnaPNjb8/VOS/zmAr6w/rpLfHifzkvbhnRzwc4n 4nfzyAyQyP7xRasGPxeuIbXyMKD5v4TljCgumCj92sbFieNj31jFcnDBLWfe O9LzdJAo292+i8wJCg+P7K74SYfr2ixTLhInCGxc2qKLLX/nREbFLAeElg8X 5fygg9rVPD+lEQ7oMZCUSBymg3744uRICwf8mXEf3jNIBzuzAqmzqRxQ4nh+ x+dvdIh7ucKoVuKAvN3qHyI66DD9ofizphEJ1sRkn+F7SYfZb3YkjnUkuG+p We7xgg5zv0fWfNYgQe2RXPtyoMMi79qw8zIkmFJ0q3Zn04Er3EKpfWqFTRW0 P3i/GudnrXKOEbvC/gx8Bauf0sFmuG/vvsxl9vQjz/qsh3TYQVIqELy0zN76 SE24/wEd7OVdp6piltl3uw49XI3tbP8+RZG5zGa+Zfy+W0AHz4oXdT06y2wu HdPgrHt0CD+bq+dVucTuDNo2fSSLDnfX+HEy2xfZMcoHu66n0sE/2r6vp26R 7eXI0Vt6mQ46Xaa1jCeL7FLNKN7mS3QoOy8caXN9kS0R8q96LpkO8LtiTMdl kZ1U1lpgn0iH7jL+7+NfF9g2NkKvWmPxfRAl7NMD82y3eF0xhTA6nNkzfzJj fJbtZpwhBg44P/u1e1UGZ9l9MS4XSnbTwdzK2ST30yzbfNyDkrkL13dD8Vj+ s1n25SJ+2rGddDgg4sN6HDXLjjo4qr7Klg67XzftahaYZT8yfqdAQ3RQMryh Nqs2w66Lb5xoXEeHZyKmjU5OU+yTxo7/MnjowKBJbMyiTrFr5sl7dLnpMHH8 750Rwyn2z/u3PJ5z0kFv6G50jOQUu9kn0ObDijPcraKYlHyaZEdc+O47NucM Kf7/3RNwmWRLn5jK/u+PM7BeZsa+cJtgp4rHmze0O4NkOA+xnjXGllxdG9p2 2xmK2scM6hhjbDHhPjneDGewNuxVd902xn4twKtgdtMZjo9WCMRqjrH1RH9q 3L7uDL0B/h0dI6NsUlSuya4UZyjwfBMUFTzKbqstlvI57QzhqWqbbo39ZUv8 cRg19XaG16Zmk53S/7HF/5Z926vkDNob0ruk5kfYylV3yy0VnOGSznS1U88I Wyn6WbOmnDPsVS6Lf3dnhH3nY/CTf5LO8JdLW6ZBf4TtEr7J11/IGWTfyZlV bP/FltG5Lca94AQHmXPRV6N+sPdrLOh3dziBeOozQYfhAbbODdkrbxKcYJbv CEW1YYB9NCwliPOsE3yLXifzL3+ALSru9m1jrBMUBuWqXTwwwP6jP3cm/ZQT WNkmbWr63c8+jmKyLUKd4BjJa//Wie/sfOWUX5L7nKD3EPmVAamPndzqmfJN 2wkYaYWT6kZd7POdFvHZLx0hYUlnaWSuk63/NP3FQbYjPPd9yPOI3cn+ObTn 5sZqR1DRfyC9ZUcnu0c8VunVE0f42ZhvSvfpYA8OHHJkFzhC5HzuyfhL7WzD Wzw11GRHyHK/wT38u429btWHbRF7HOH9NiEt+x2v2CM374n49zvA081nj8rG PCNWfY3ZZPdyNyxaqVoUZ3wiVP6GP2qZs4dPh1WTE8n9hAnjGMXd1w68vCh5 Ed2/iOSOqoY7sbaglOMqsuH6KLFR+uifnEVrGKwy9km4O0qsfpEv7TZhDYUd lIreslFC2KQ9VXHEGsyFmt0T340Sj3bJ15d2WoNbhFnRIN8Y8aA+4Ofax9aQ sVPBLu3EGOFR9qbaM9Aa5Oe7zy96jROvfBS/HvxuBf2SlT2Owdhq0srin63g wfprBvdPjRPLgnFd7DYrMGPu/Ey/OU5YtNxeMAIr2NtWo1nycZy4qr136lyW FdzIy2zwtp4gpCcbXvR5WoGskxdPg84kcb/N9vf3HzRQWZ/c6Lx5kpA/8dRB pY8GawSrE/u3TxL7rXiiD3TRwPiVjPjygUniedytm+pNNHA0fKdsXDBJBJiu AtOHNLgoYWF6R32K4LgYXjB6mAZX/wUu6BtNER/9tSzIgTTIeHOjtpY6RRz8 doCu60eDB7FTtC8+U0Rz+fdTuQwaNE4UOlBypgiNLVdmt5rTgLNdITBaaZoY WWw47C9AA4FSWz3hddOE95S651FuGlCSIsZumk8TWxNUIHWZCqq0jxEV+6YJ iaDNvivjVNhSfiHuz41pgvuY/e873VSgXXq27cT9aeJXQNUG004q2B0cFuCv nCaGnbg4e99TYa+65WX1rmlCSvVIi0cDFY5dnbu9T3qGuHc5SWXTYypEh6z1 /qUxQ1zlJ1e6F1PhrB1dPcJ4htD/SPBdu0+Fa9yPHqQ6zxAunk4s82wqlIX5 P21KnSFc/xxPCU2mwh/nzjYT0VmiQMAyL+cQFb6kvrxapTRLmH0Zp1oGUqGx rciF0J0lolabx03tp8Jdu7g+a9tZYqj3TcJVbyq40QxG6bGzxFGrx5yVdCps P6NY/vnyLJFwp058wpEKpkA+5p49S9Re6xXYupsKkua9K341s0QDc9JTbgcV WgwTRcNmZgm01S8CtlLh+eHwjzM8cwRbqOR2JkGFghLvtBOSc4Ro5ohk6hYq xOmYqsQazBFfPsRUVG6iQuiB1QO8aI6wZz6y/GtCBa98kfwL9nNE/avTA6Yb qWC+ekgvNXCO6HjjrEcxpIK2d9u4VOQcEenZQWQZUEE2q6riRsIcUeMzZ0TT pwJvT16kUhr+vgVPKmk9FSblUy1y7s0RvMpHcz6uo0K/yylOjfI5gtEUcrZW lwpt1/3rC17OEZxObtovdKhQ2+50Qff9HOH5Qbr+qzYVCsUJ+9Jvc8TdXNcr Itg3d2uLG/2dI86uVLe4alEhIVmq4+niHFFUXV1Uo0mF8BbSzc2C88QN2ZpQ M2w/gd/ubLl5oumhqGvbWio42nSuomrOE9lhs5nR2Ojsy6H6jfPEGo7HsTbY enVF97dbzRNLFRHbdLAVOW8EvXWaJ4rMYnQ0sQVQnIGjzzzxdZoSSmDPngqe +hQyT3jVHfc4jD1ctbfSNXqe4C9XMK7Fbp+zOtVzcZ74M39k8xqcz0sTg63e GfOEIafys/vYpUcVeYYezBO0W1/GbfB5Mh+Tm/wr5wl71+tG3Pi8iWPjSb8b 5onVlJCG/9fj2Pre3SEd80TQafb0O1wvVlCT5OTgPGGmpCj6HdfT+WF5V8TE PMEt6uchqkcFy19ZGQscC4S54yvDffg+9NcmekWLLRDx5Kpvdfi+lJnh6lwq C0TlP81yuw1UmO+zKxQwXyD4739Vf2ZMhZ/KpiHJ2xcIPp6xwAzcHx1uq43E XRcIxX/rDLJx/5R1zVXJhS8Qam5mGWQLKmRLD0XfjsPxvpxzgYgKyc5t1FVX Fohrvya3jllSIaAt741m6QJhk2sr62VDhfR3A8sD7AUi8H7C2Qu4n1+/Vd2Q 9W6BWLuy+liPPZ7/1pvpUv8WiOWepIllPB87WzrftC0vEGefD15460qFyDeS K4kii4Sa/VtodKfCp6ZkJqfeIuGT67KVYFGBs+lNes2WRUJKP7ukOgCfv5Gv 5djORcIu7j+u/cFUuFB/ZsO/g4uEX2xPPe047odX4StfHy4Sl0erqRtTqHDo 5eMNaVWLxDq3hb2616hw68Uo0/HNItHdejvK+RYVptkBLY0ji8Tpom0vthRQ 4WG1x40nWktEwZn3Iwl1VOiqutUSsmmJuCl4mVO9Bc9HVdeKju0ScW5pdPPM RzxvlY6sXP8love2UYjtIBWkK6wNU/KXCCWf2iNPyDSgPYllbX+6RIhAoog2 hQaHy+EGT8MScbyvhrtXngYtZWakk8NLhM38N26+9TSIKdFr9ddYJjIale7H 7KVBcXEgSd14mYhgKtuLsGjQXVRg+I22TIyJ3//Xj/f5xkK1m3S/ZaJvpXPS /wINfhdI77e8s0ywruUYC7JpIFfgdHOpbJmIppjXzrfQwDr/Uuuzl8vEkUSR LPOvNMi5J2C0vn+ZWK39Z33NLA0YucskxVUrhHrg17GvJlYQl7PZqFN/hdi0 2MtMsLGCR9nH9qeiFYLXdGvJFVcrEMoab+XzWiFud/dXt560ghe3hm9OZa4Q F2jvyVyNVjB+WNx2f/EK8V26L+zEVytQt7GY6apZIWRf0dvc/1lBwuQ1p+ru FaLbv8PBX9Ya8vPUzm4VJqEbF41M3gVbA1w2dZ+XJCGubUFR789aQ9dJe6PH iiT0ZLUNx65MaxBwiuxX1yWhJiFJ5uu31hC08t6CbwcJvRlJzho23gZnR35I vXAkoeEnk/v4HbZB5qel38f3khDp1Qnz6oPboO2h1q3/DpBQ2gY/qd5728DI JWbmbQIJzS92P9+vYgPzpfql1+pJqCo0fu2pDbYgkWF9zv4tCfmfKMhd42IL uufcPMgdJBTCFo9Pi7IFd/cEoeNDJLQ64r50X6stAH+fvxs3B+I9MGIQH74d Pk9OEVJCHEhutYF0f+52GP8mKPNWggOlppwq12rbDuoVJq+J1RzoQ6PR7qR1 O+CcT8qq1ZYcSON7RozW5A7I3nlv9qstB7qvmabC0rSDZ6ZV7646cCAPnYKS J+52MCLy4xSvNwfyjNnxK/eNHdhXWXz5Fc2BYvmG6uye7ARJyb+ppTUcSG9f VkxW3S5QLfUJGKzjQMmGJdDJtRt07Tq3yrZwoESfALSosRtocTAa/YUDvWqm B6kd3A1HJ1Ptd81wIKbWYw0pkgOcuUReE7vMgdLdc1Uer3GAZN2TSxU8nCi1 /UHD/E4HyPNjFipLcqL5sYc5iZkO0NFuIvBXnxO15c1aNW9zhP6Qwu+rTDmR beGgfesRR/grtKqSTnAiiaC+jKhsR+C1EvCv2cmJiFOjx0YWHMHkSffrpABO ZPMohfPtcydIvxYTo3OXE6l+Vsvj3YP/XxlMu3g+5ETrtEN1tC/SobQ1QP9K GSfade117sdXdGjkcf42D5zoY/SH6twNDJg7umZLcw8nWuP10O6c1B7Yy3gz 6y/DhSQ5aMsqIy6gICMVkneBC/ksUxvYV9yg/sqGlaOpXEhwDymkqc0NQsV2 J1vd5EKcr3iP7RR2h2b+xMLB+1yo7YX5+7w4d4hcJP1Sa+JCPImmtJ+BHrDm uPKx8TYuFNduaCd41wM+TG0mv+ziQhkaCqzjXz1A61+4hvdPLqQkOrtG08YT ur7/9s4ic6MW+7pFJOQFcR4CY4dEudF08oA6Q8ML9L+uPW0hw40OziiWkS28 4Fy7T2bPGm7E2D7FRxzygo0NXV8UrHH8ti/XSM1ecK2wzik9jhsdn5VYbx3s DUirv39/Ejca9LkYuv2MN/y+t3LY5Co3GrN4JzJ11RtoWWaXOu5wo0ed+gct K71h8nJpi+QrblT1d4v0wJI3ZIu83TfYzI1Cq0bXESI+YJf438jjD9xo+Zxk qJ2yD9yJW8Pv1M+NfqxKXXN6iw84RmRYXebgQQMJfNVHjvnA8kRluxc/D7Iv cio4fdYHHoR0+upTeNBzT4MJ26s+wBEgfuadKg+ycooQkSnxgVK3hFphxIPu Raq5wncfELUMM7kQxYP6+blZ+819oTh4tL49ngd9leLVXG3tC/a3DzJULvKg x26lA+W7fCFp1u9o+S0eRFKyz3f38QW+Evrj3mc8KJ38lPI13hfyu99bagEP 4hboCnFP9gVrAfsPRxrw5//kU6q+7gtxTOsxvg4eJCq+somS7wsciibrDSd4 kNzjO7Xr6n0h2/Zx7al5HlSRd/HLvVZfQBHr7Rs5eFGGB/ftlXZfiPqwNshd jBdlReyO2jvgC/MJsg/PreNFV0fOfapZ9oWJqbk13ft50W0DesUjfT9IXR1e sSaYFy1eMJ6I3+gHGxzGrQ6H86J/a2IlaeZ+EFI44scbz4ve3yh6HL3ND377 fM3Vz+VFROL1hytufjD0rlo5vpsXqV5vTz0a5wdxS6bF7/AvRrkiaV7p836g rvNki/x/vOgh90/VvIt+4HO2yK1kjhd5c8ecuH7dD3rNM29+liajtI7rxex8 P+i8Hy2t50BG8pZRkYca/GDW8siAkwsZDTPuLkm/8QP5blbpcU8ycoHS0sdv /cBNxH776yAyOlmQHdL8yQ/6QhWj3C6QEblpa17ogB+MbK4cuvCKjBSq1bZ9 WvQDwU+FZaXNZNSzfvhUx4of6B7Kju54T0ZWV5Jz3nIyITj7nJxaHxnp/JOz vMvHhEluxs7KRTKatmp7+VOCCcut4+U/jPmQyTmF8AlNJqjsH44R3sKHnkUl 2BzRYQIifbE3pPGh9LCT5N/rmBC74cXPKEc+pHjmR0XjBibwpaUoSgfzoSGD n48NzJkg7qUbRyvgQ3v5W/d37mTCmnGmU448P+rP5iniDWLCj0DOLh81fsSs 9J+ePsSEgqFMN3VtfqTSarnwPYQJ2p87mfmb+NHRvkPxBWFM0APbY0Uu/OjZ u1cP5k4wwTh53e3K6/xoNpnIrTrPhGly86oTmfxoKeCBvFciEypiWHnmefxI 6XaZN+kiE0yPZpWwn/CjghDP60aXmGDuRnn5up0fbat8uDboOhNo2lPD78UF kOg/8hXtXCbw3L0ceEVeAFXGGu5LvcOEeiW9UWc1AdRywv/l9F0m2FD2z3Ua CKBnu9/dfJLPBLvZLsHe3QJoySD3jlARE5zqq/VHkgVQww82WespE3x84iI5 BQURv6Tty71NTJC+GL1iIS6InN7ukt3TzITmp5FxJ+QEkfztijCHN0wwFD6c PLlWEIl7vWKgViZwP3PPHaYJojMN4QzyeybkCZs0N0cJosVP49UWXUwYefZL 7sq4IPJ1CTxzZIgJmQODme/mBNHUnQUxs2EmOIr0rRbiEEIjhUMbV7CrfDvW xYsKodfl+nvifzIhSeTV1ghdIfRHaGFHzH+43n4ZB/axhND9i+xJszEmhIru qlz9RQjtjo7MbV7A9ZCfmFr4LoSKP5FLIhaZIL8mbUP7LyH0fulO3OolJrw0 //Ywbk4I1al6pEUs434ICM4ckhVGN18tF1M4WPCoLiU2f48wajrdpinGy4LR 4207dT4Jo+9a/BdtRFlAiw+7wNUjjNZ+yeJrx06/JNvwdVAYPf62KctDjAUo 3wslTQojRj1oHKaw4FL76IY/EiJIf+l5W6IEC/TXU2RLHEXQ9mvdu27IsCB4 0KF/Q5sIOvs803OVCgsqsp1VznaKoPRbXLQk7GW3PW6fe0XQSLrd5WnspE9u HdF/RNDuoI2BTaoseFC/v7lFQBTxrA0291djwWDBqTKWlSgq4+DYkajBApeg +2duPhdFUmw1i0M6LMjSKmT/eSGKSBsq7Rqxh4eKF1GTKDIZ2TO4SpcFRz3K w390iqKms5Syj9ipu9gBRlOiKIa/stdAD8enB2j9kBFDLb8D9D/rs0D1xGlK jKMYqr4QMNplzAKelBp7WYYYMrAZVlHfyIKR3PnEElcxJO2bP3EI+3FzGG+v lxjakLXnApcJC6zlDyyYBYshkeincZqmLAisdBiaTBRDMg4ndXzMcD1m1Cr9 X4uhje5Hx9MsWHBT0Gt6pVEMXaVUPuvCjla5bZjWIob0tg8byhEssNkmU/z6 oxgq/dy0/Qb21+uCd9T6xVBNhSz5OmIBaeNkUveyGMpJHJc7Y8mCHWGvvXab UlDl7M2Ta61ZcHq247ixOQWdPSp5yA+7/OTPVHlEQRfWIekcbOV4wdeD2ygo 9U1Yktw23B/XHLSO76Eg4cRERbINC64+7RnLCacg5adm2p9sWdA9P3VmopyC GGn2r4mdLBCLJmd0PaMgk5J0lzBsKy65JzXVFKSavbakALtY0PzHuToKuqJ0 JF/MHuejeGaHYjsFfd5u9LYHW8NCRNJqgoK+yXzZErSbBYdi1ty7biCOUoJd 3/s4sUDRY7/FJmNxZEp4+FzEbjYr6PxqKo7C13I0PMVeO6klsAqJo3XKnEJC zizoY60LfmgvjupecCSWYTvYGW2CQHEk0LIraYbOAiMZy9Zf98RR8JUObl8X FvRPnGEl3RdHU4e7gxOwL7W9WtErEkekt73lRdh/zlttCCsXRzmPU1pnsPMW bdKWX4ojhZ2XLS64skCmf5e3RJ84Kvhx16pgLwvmC92nzOUlkNnEJ5FmNxbM zoUGrFOWQBzpS61/sKetE74pqUkghxe5LIo7C8b7ypqWtSTQPl4NDRfsEUm+ TNgkgV7YGXUPYH85WWZNc5VAAxx9eyc9WFBlR07fkS6BBOf+vJ33YsHzG4rC 5hkSyKZRXkremwXPhg3O6GZLoCOHTM02YZefdjsoXCCBRtMGVkVgF5Y/Qu+e SiC5oU2BY9gZim6/HDslUApJj9znw4KTv0vN9kpLogbVjb55fizY/C/G3lRe ElWt9O56gT0/5ugjrSyJ1NZxrurGPjYzef6DhiSKDDM8TGHieePc9Hm7sSSi e2e0RGIfkn0RsdlZEqkMfTxvw2KBJ+19uWKqJGo3J/9s24/7b1tu4/w1SRRi zHv7J3av7ZHurhuS6KiohBnJnwVuu6S4r+VIIhlltu56bJe9rk7CjyTRO+2N M4nYu0O+jy29k0S9V3s3bj3AAsuMMb1vwlKouzFS6FYAC07MjL2MpEihy651 ScXY5Y7jDGkpKdQ28Xn+BbYG/0TUTkUpFFf1KPsnNl/45NsqbSl0FQlIGQey 4O2umUPp26QQ15+2kmbsvVxLxQ4xUsi1ykDj10EWXPFYsvwTJ4Vux6efnsdu qVzqSEiQQrOav94IBrFgS8jyMjtFCnm3nd2gh63as2KvlymFivP3bw3FHq7g /CdQJYW0wtYemcEODeBbXzcphe6ZRSZPH8L1Nu7JLJqVQmoDdg7kYBbEcpSJ pC1KoeFZLy5Z7Kvp+/4e4JZGMyZXjDdhP60vLhKVlEZ1mtztkdiLanTdfYbS +Pf+DHkBO/5rjtb4YWl0yNCY/S8E73u7zeqq/6TRz52ZjUWheB+FEJIN49JI 6ErtQiV2xlUq96FpafR9T9rqeuyc7h2DVUvSSMv4tkMv9oODbnf3CMmghger NUWOsKA66ZR6ipYMYmRSGwOx+1rY6su+Muib3G8FlTAWaO6kaXR3ySC6m6eW /1EW/LeGuzykWwZ9zv+Wfxi7mFRnydMng5q92pROYBuXU730fsggUoza6EVs SwXqrdNTMigp03f9Y2z3X1spGuKy6CJJXGUROzWeWAraIYviqP4z58Lx+WvM Pq3UyCLLsXyZ8xEsEOV7R/S/kEV95rK7L2OrOfo+qHstiyI+xJ2+gW0znBh9 vlUW5YWENt3HvibSoyXRI4sa30QuNmHreUZHrVmURb+ySH/5jrHAm1S3dqeZ HLK65mAYg11vuTPyZoUcIodd/+B2nAVOQ2JMs+dyyK48/JMPdt+59l1fauQQ x3/fP/hjz7Xs05B/jZ/rBtWEYevuCWi78VEO7Un+7pCEfSXw3Jobo3Jo/bZz J59je1198SFNWx5xuJLnxSPxftoYX2OiJ4/k/G/skcWO/GxT0Gkgj6r37yxV wr6i3HZKZpM8ap3RddLEri/o1UzbJo+2lFh5bsFeV7MQdd1PHim9e3CVhT0/ ZKxzLVMehZ3tvfwEe6N5KSknVx4VG9iNPMcOTdXuKMzDXu+wBbB/WajE1BXL IyNFk4/N2F1pfJ0TtfJogSbI/ob9xPbrGcdv8kiDdO4W3wkWhBSd/iKqqoAS K1ESA7uQa6FEQV0BPdv0aes+7J+uR+PXaiog67C8cU9sT94AfUJfAQUfELc+ gG3v6XT2EFJAH45eLz+BrUNZs6HVSwGt1gopz8Jm7c8mf/ZTQPyF/Kp3sXNr 5HsG/RWQ/pz2uQJs+QDRhMUQBfRJVMbmETbfq9kenRgFVD0vfu0lNk3uyGOT eAX0sNq/px77dPCfBOp5BXRQKGDVG+wZhX7DfZcVUE3f6YyP2BtC3fj3X1NA 9SpZHzuxDzV29IbeUEC3vCN5u7EfKDuUR91WQM6z0sZ92MNhb85fyFFA+QbH PQex/wfZ881N "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[100], 0}, {-4.605170185988092, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[100], Log[1000]}, {-179.87162755652136`, 0}}, {{-4.605170185988092, 6.907755278982137}, {-179.87162755652136`, 0}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.502087532534642*^9, 3.502087578890294*^9}, 3.5023556980869484`*^9, 3.502358324047145*^9, 3.5023583685876923`*^9, { 3.502359408157152*^9, 3.5023594366857843`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:0420\:0430\:0441\:0441\:043c\:043e\:0442\:0440\:0438\:043c \:0432\ \:0442\:043e\:0440\:043e\:0439 \:0440\:0435\:0436\:0438\:043c", \ "Subsubsection", CellChangeTimes->{{3.502087612413211*^9, 3.502087620219658*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"c1", "=", "0.233"}], ";", RowBox[{"c2", "=", "29.5"}], ";", RowBox[{"c3", "=", "4.23"}], ";", RowBox[{"c4", "=", "0.3"}], ";", RowBox[{"c5", "=", "0.075"}], ";", RowBox[{"c6", "=", "7.48"}], ";"}]], "Input", CellChangeTimes->{{3.5020876633241234`*^9, 3.5020877039874487`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalOmega]a", "=", SqrtBox[ RowBox[{"c2", "+", RowBox[{"c1", " ", "c4"}]}]]}]], "Input", CellChangeTimes->{{3.5020877110078506`*^9, 3.5020877383824162`*^9}}], Cell[BoxData["5.437821254877729`"], "Output", CellChangeTimes->{3.502087740497537*^9, 3.5023556981469517`*^9, 3.50235832413615*^9, 3.502358368648696*^9, 3.502359436757788*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Zeta]a", "=", FractionBox[ RowBox[{"c1", "+", "c4", "+", "c5"}], RowBox[{"2", " ", "\[CapitalOmega]a"}]]}]], "Input", CellChangeTimes->{{3.502087747473936*^9, 3.5020877853071003`*^9}}], Cell[BoxData["0.055904743048939276`"], "Output", CellChangeTimes->{3.5020877863931623`*^9, 3.5023556981799536`*^9, 3.502358324177152*^9, 3.502358368691698*^9, 3.5023594367857895`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"k", "=", RowBox[{"5.84", " ", "c4", " ", "c6"}]}]], "Input", CellChangeTimes->{{3.5020878019080496`*^9, 3.5020878135877175`*^9}}], Cell[BoxData["13.10496`"], "Output", CellChangeTimes->{3.5020878142417555`*^9, 3.502355698213956*^9, 3.5023583242131543`*^9, 3.502358368737701*^9, 3.502359436810791*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["c4", "\[CapitalOmega]a"]], "Input", CellChangeTimes->{{3.5020878344489107`*^9, 3.502087849422767*^9}}], Cell[BoxData["0.05516915432461113`"], "Output", CellChangeTimes->{3.502087850144809*^9, 3.5023556982479577`*^9, 3.5023583242491565`*^9, 3.502358368778703*^9, 3.502359436838793*^9}] }, Open ]], Cell[TextData[{ "\:0422.\:043a. k < 15 \:0438 ", Cell[BoxData[ FractionBox["c4", "\[CapitalOmega]a"]], CellChangeTimes->{{3.5020878344489107`*^9, 3.502087849422767*^9}}], "<0.3 \:0438 \[Zeta]a<0.4, \:0442\:043e \:043d\:0435\:043e\:0431\:0445\:043e\ \:0434\:0438\:043c \:0434\:0435\:043c\:043f\:0444\:0435\:0440 \:0442\:0430\ \:043d\:0433\:0430\:0436\:0430." }], "Text", CellChangeTimes->{{3.5020882154737043`*^9, 3.502088277301241*^9}}], Cell["\<\ \:0420\:0430\:0441\:0441\:0447\:0438\:0442\:0430\:0435\:043c \:043f\:0430\ \:0440\:0430\:043c\:0435\:0442\:0440\:044b \:0434\:0435\:043c\:043f\:0444\ \:0435\:0440\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\:0430\ \>", "Text", CellChangeTimes->{3.5020879562718787`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Mu]", "=", FractionBox[ RowBox[{ RowBox[{"2", SqrtBox[ RowBox[{"c2", "+", RowBox[{"c1", " ", "c4"}]}]]}], "-", RowBox[{"(", RowBox[{"c1", "+", "c4", "+", "c5"}], ")"}]}], "c3"]}]], "Input", CellChangeTimes->{{3.5020879608361397`*^9, 3.502087978973177*^9}, { 3.502088145177684*^9, 3.502088158383439*^9}}], Cell[BoxData["2.427338654788524`"], "Output", CellChangeTimes->{3.502088159997531*^9, 3.50235569828496*^9, 3.5023583242841587`*^9, 3.5023583688207054`*^9, 3.502359436865794*^9}] }, Open ]], Cell["\<\ \:041f\:043e\:0441\:0442\:043e\:044f\:043d\:043d\:0430\:044f \:0432\:0440\ \:0435\:043c\:0435\:043d\:0438 \:0444\:0438\:043b\:044c\:0442\:0440\:0430 \ \:0432\:044b\:0441\:043e\:043a\:0438\:0445 \:0447\:0430\:0441\:0442\:043e\ \:0442 \:0432 \:0446\:0435\:043f\:0438 \:0441\:0438\:0433\:043d\:0430\:043b\ \:0430 \[Omega]z\ \>", "Text", CellChangeTimes->{{3.502089003918801*^9, 3.5020890067279615`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tb", "=", FractionBox["1", "c4"]}]], "Input", CellChangeTimes->{{3.502088980599467*^9, 3.502088985985775*^9}}], Cell[BoxData["3.3333333333333335`"], "Output", CellChangeTimes->{3.5020889868678255`*^9, 3.5023556983179617`*^9, 3.5023583243191605`*^9, 3.5023583688617077`*^9, 3.502359436894796*^9}] }, Open ]], Cell["\:0421\:0430\:043c\:043e\:043b\:0435\:0442 \:0431\:0435\:0437 \:0434\ \:0435\:043c\:043f\:0444\:0435\:0440\:0430", "Text", CellChangeTimes->{{3.5020882922310944`*^9, 3.502088300392561*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Omega]z", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086292714729*^9, 3.5020863559183435`*^9}, { 3.5020863960746403`*^9, 3.5020864160587835`*^9}, 3.502088337500684*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"0.233`", "\[InvisibleSpace]", "+", "s"}]}, { RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020864083853445`*^9, 3.502086416956835*^9}, 3.502088339640806*^9, 3.5023556983529634`*^9, 3.5023583243571625`*^9, 3.5023583689037104`*^9, 3.5023594369227977`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Alpha]", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"c5", " ", "s"}], "+", "c2"}], ",", RowBox[{"s", "+", "c4"}], ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086816999716*^9, 3.5020868435512347`*^9}, { 3.5020870184622393`*^9, 3.5020871299286146`*^9}, {3.502088355743727*^9, 3.5020883786730385`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"29.5`", "\[InvisibleSpace]", "+", RowBox[{"0.075`", " ", "s"}]}]}, { RowBox[{"0.3`", "\[InvisibleSpace]", "+", "s"}]}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.502087095202628*^9, 3.5020871305366497`*^9, {3.502088374013772*^9, 3.502088379009058*^9}, 3.5023556983869658`*^9, 3.5023583243941646`*^9, 3.5023583689437127`*^9, 3.5023594369497995`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Theta]", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "s"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020871437744064`*^9, 3.50208716481461*^9}, { 3.5020872668724475`*^9, 3.5020872685785446`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5020871654136443`*^9, 3.502088385246415*^9, 3.5023556984209676`*^9, 3.5023583244301667`*^9, 3.5023583689827147`*^9, 3.502359436976801*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Delta]v", "=", RowBox[{"{", RowBox[{"c3", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020871754712195`*^9, 3.502087221239837*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"4.23`"}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.502087194501308*^9, 3.502087221840872*^9}, 3.5020883918537927`*^9, 3.50235569845597*^9, 3.502358324466169*^9, 3.5023583690227175`*^9, 3.5023594370048027`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m1", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Theta]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020872461072598`*^9, 3.5020872800412006`*^9}, { 3.5020873135241156`*^9, 3.502087319207441*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0.233`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"29.5`", "\[InvisibleSpace]", "+", RowBox[{"0.075`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], RowBox[{"0.3`", "\[InvisibleSpace]", "+", "s"}], "0"}, { RowBox[{"-", "1"}], "0", "s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020872724027634`*^9, 3.502087280702238*^9}, 3.5020873204825134`*^9, 3.502088395226986*^9, 3.5023556984889717`*^9, 3.5023583245021706`*^9, 3.5023583690637197`*^9, 3.5023594370308037`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m2", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Delta]v"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020873377695026`*^9, 3.502087345456942*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0.233`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"29.5`", "\[InvisibleSpace]", "+", RowBox[{"0.075`", " ", "s"}]}], "4.23`"}, { RowBox[{"-", "1"}], RowBox[{"0.3`", "\[InvisibleSpace]", "+", "s"}], "0"}, { RowBox[{"-", "1"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.50208734629399*^9, 3.502088397834135*^9, 3.502355698522973*^9, 3.5023583245381727`*^9, 3.502358369105722*^9, 3.5023594370588055`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"W", "=", FractionBox[ RowBox[{"Det", "[", "m2", "]"}], RowBox[{"Det", "[", "m1", "]"}]]}]], "Input", CellChangeTimes->{{3.502087352433341*^9, 3.502087360735816*^9}, { 3.502087393166671*^9, 3.502087413468832*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"1.2690000000000001`", "\[InvisibleSpace]", "+", RowBox[{"4.23`", " ", "s"}]}], RowBox[{ RowBox[{"29.5699`", " ", "s"}], "+", RowBox[{"0.608`", " ", SuperscriptBox["s", "2"]}], "+", SuperscriptBox["s", "3"]}]]], "Output", CellChangeTimes->{{3.5020873971628995`*^9, 3.502087414114869*^9}, 3.50208840089631*^9, 3.5023556985579753`*^9, 3.5023583245751753`*^9, 3.5023583691467247`*^9, 3.5023594370868073`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Step", "[", RowBox[{"W", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.502088411829935*^9, 3.50208842012941*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwUV3c81d8bt/e49srMCpFNw3OQhhAyKkIqI4UmIpV8I1lZCaHSkoZRZrL3 vPe6w1Wy95Ytv8/v/nNf79c5n3Pez/t5n3OeR9bdz/YSAx0d3QwzHd3//1+E urNoXnxiRPf/X5vBoTqCjIWjjDfQyfTUHaYtG+00VD6UkQkCuvtra30UQeBJ +P6VgxIGdNHNt42vKcGLqhhpZpnHQJegUkol6IDa3MXYHc84oHuQoG1liuAX T+a/LXIC0P05pl7meRTk37LrbWwmA135o4uupJNw5dCtq6vSz+H+HplclUY7 KCT+yVk2zQC6/XFGVkfPwoaPRd+CZxagr15ZEbpukE3f93jV7CXQfQmInkq9 AIfbnyqskF/B/Tezyw8sPWE89Wj1sncO0OlrHV229YHoi9vOS5tvAM17nR19 7weETa+keekPQDc5nO/y6ibcbpTaN5efC/fHb+uMHQ4A8URi64xpHtw//+Yr jecOuKsgxinPLzAvKePNyXUfGDbvdC6HfIV5Fae/vh8fAPGPveSyWT7s2zm4 yubyEALzOEsXyQXg37Tgbrv1CMwTRlkWswvh/u6l1OKxSNgVWG234F0E8ZpB Q5UjUVBlGjA/t/kN/Hu5/fjE4oCVNqg0I10KBmOPxtnUkoBS9ePW9HgpjL+3 +DfjnQy5b1Nrp/LLoEj3t8z1rylgdd3KddK0Ag47ad1YcngOKexlKWOeP4Gy IPvtH0sW8Gc0MSyQa4BnLlHYZuYNbPJ8/+B/sBYUX4oSulvewvCD19bz2bVQ UtbdVv7xHXz3DM2c866Dtzd+f3gc8AHOauvsn92sh/0eKzhd3U/wsiXr2pR0 M1z/cV+vOKMAllO/qfRHN8O1FG8ii3ohHPFsHcKvN4PliFnEl6pCmGZctS8j tIAW+1532kQRGByy2v84og3a++dmTcyLoevLFoPSXCf0dni8Pm5QAfda1Mw1 XQnw+EFNq69+LbzPL1b8mEyACZaPJMfHtYBPNWFUaCNAQ8pZMxlaLch7nq4Q NSQCSUimUze0DloYw9XpBHrgb+vku5rqehA+ROPvbCCButJc6ppBEyB5j7lj 2ySINufSnv6vCbw5F1prtMmgMGB8/By+CSqoLP99zyZDza4olpfezeB+W2v1 xR0KRFHPNvM9bYHPXx7Trqj3Apfthw8jlW0wyT8ZbX6+FzLalukattpA6ba5 kXJSL5xWaAuZMmyH7IOcL4fWe6Hk8Y22lfx2SGiO9jhbT4Oc7aX896kd0KE2 I2KwRgPbRLEPJ7o6gDPesllItQ9MFe6CCGsnhDvwqHXH90E2u8lRieudcHso buGo8y8YK2lr/CnVBQVH5l8pxP2C7tDGSVb9Lpj7YG3HWPMLoj80mFKsusDL n6+4Uuk3sPtz7ue62wVntxNCdJd+Q1NzVOULQhekuC3tFVDshzCiIplxvAsI taf650/3w3WnmYvjm11gESVoklfZD8WTqExZrhuyOFsf8pn9AfHZo4E+Xt1g dCjY+b7LH2CyppPNDeyGPl9V3bmAP+B4ZGrDNbIbRPFPRtty/0DzO80L6m+7 4TvjwZ8H6v7An2uL6WZF3WCnO/0s99cfkLry82x3dTc8TbU4HokbANJ+Za3D tG7Y17Ilu7pnAOq/dx9TGeuGjs28jUumA2Di8nEgbLEbOFy580xvD4B1dCV7 FCse3sf/CC+IG4C/bQZT+nx4OFJz9ZzshwE4reK55CCOh4cKHTw7tAEgyLrH j6ngQc4xdOzq3wEQvdjSeloLD1WR6lV9PIOw4y0evN8QDy5lv1NPKA/ChPLC k2jAw9ZU7LUy40GoCvRdsTLDQ5okmO9xGgRikvqPB+Z4MDg5J5d6cxA0aYdn 5E/igXQ/a5MldhAMWnUzDU7h4VbBSeKtd4Ngcnh+ocIBD4LDO3nDVYOgwtwg WHAGDwVCX/871TsI769eOCTqjAfro24uNUuD4BPWkDd3Dg+zgTh9Te4hYNHV /Wzgiofo3CrebMUhyJ3XeraEYZU+/3EeNATEK7caZdzw0MQtW333zBCoNFLe V2HjntD9fPr6EGSP2H4huOCB7tVKGe3JEMyeui56AVs/lWlXX0vOEHxwSxW9 4oSHfZ7G26U/hkDqHqPh3GlsvWYPqQ+kIaA48HPN2OPBTS0aUueG4Pk+3b0e tnhYi813i2AbhieNv5GTFR7iF0gPbssOA8/9m8ttx/GgbLf16tL+YQhlNvpX fhjT+7tsnd2pYXC3tpPcg+l7WuzoiOkVbFw4XkwI038++AqL9n/DYP02oPY+ lp/I30+V5DKHwUdDbfmKKh5kjIuP8RUPw5Ugh5je3Xgoed3nTdc1DPScAkEt EngY91LK+00/At+HQsR1OfBwv9WivV18BO6nTLXn0+FBVP36bIX2CBwbNO0s WumGY0sV+9IvjUAbTRVnO9ANf+wHbaJCR8DftiJmtqcbAktYbwQ9GwEuU7Ye oZZu+HDX9ptj8whEGFY/Zc/vBpM/AaQjgyPgm3MjjPK6G3pNXqzqbo5ARZGB tn4K5le2cUPBvaMQU4Tb9SGoGy4n3K3sih8FFpedR/8d6AaGv6/6f34YxXQp qFpT6YY0xya6LzWj8C/r1haLeDe07BIwjVkeBU/lrtSNlS5Qffe+8fjpMWBq Dk24nNcF0+WErhrpcXBq/Fc3wNIF4VLrC/kG47A00vPk6UAn7HogJfDSZhxG c3nftBZ1gsURb/t7D8fhNM5qO+FMJ3zq+kc9MDYOwpccFSkZHeA7smeo6PME PHe9OPGKux3+uFDZqpsnwO8LV3B6TxucokSqtw9PgHrYkvy+F22Yz8eCRsQn 4f2eY99NVNuAMf8NTjhiEh5ftn+UbdoKqSGyRgGuU7ASdMF4DLtfqwXEnhvi ZkBfpr/2X3496MQ0VZqpzsDLk5anawPq4S1L4LDNkRnYPfWX1naoHqLXSRqX Q2bgzq+onzUtdeDQn9SQNj4DObY87nXjtTCZi1verJoFvu17WdaGNeAsXyXG 1jcLIcLuqh+Ya6DzhR8Irs5CBlVNMgFfDUXxHVFqe+cg76iCs6JvNdy7HS17 7vkcxFeoa7TnVQGHbLhSv8E8UFVbbXmfVULTwacaoWbz4Fd9j3XFvBIenc7U l7Sdh97t1VETukpgiC856uQzDyFXey3k/X7Axr9pT/IL7Ptg3quJLhVQIr7h dzt3Hp4NEJcNpSrgth5roFDxPGTUR21c7S+Hxauykae65uHo8JOZOI9ymOqz f9/JsADKfv2Z6pFlkLvm/tWXdwFGa16LfrMrAy9B/xLuXQtgJplXOi5XBsMn oppO6C6AjYjcyMW6Unjl+axr0ngBhLYDyYXPSsHtYQ7lsdUCvNoVX1VxpRT6 yirHGz0X4BB+vZd1VymkkVrnPW4uwHtO6uWTKyVwepGyxvxgAYb5Tn52wpeA MM8o3ZuYBXhUmEWn8bUEiHuW2A6nYevVoPTWuBJIMKPjG3q7AEEXqpO1r5WA 9XlusbDCBThMKhzxsiuBtlSlPVVtCzBGweebyJRAVJGOpit1AZ5bxvpOspXA sS5jw38jC+BnW0nvsVQMLNNWxi8WF0Ddm+f79/5iqGN1Pn5wZwEcOfsKf7UX Q9hubxsa5yI44zXp+34UA4LbZ+6ILgKTWP2Dgi/F8O/sw/NiCosgI7Sycv51 MVTcjvcu0VwEQy/8zmRqMdxJeHHN0WgR6BTFxazii8Hgc27QivkiDFodffHk cTGsNBc/SHZcBNyPZ3Wvw4uhaKTusc5FbH6Y2JuUB8VwnR7/lOC/CDEFpVoX 7xfDPsn+59fvLoJZlj1wYeOzBtMv+aIW4dXtjjuxD4vhk936h68pi/CflfSN yYhiuOLPUnDy9SKcTbiVJB1bDCrRAmWzXxahHX9iz96UYhh/J1MTU7EI+5Yf neXPLoa3tXtb1JoXQaskWaPjYzFc7N+Pb+1ZhPSshFjX0mKQ2zzae3lwEfxk vA7WNxXDH2H7Qfa5RWhQW+3bphZDppb75PvNRQhnQUusM8XgbOW3eJRtCZqd YgYG6EtA/HLIxqjgEnC9fznxWLQEKP89ZngkuwT3ekbV/u0rgZSXKRwK6ksg L56dd/BECdj9eM1ftx+bzyVlbupZAvzUr+IXji7B4NhyA+9/JRCLa1V56bYE BP83jfP1JVCqL/nNyncJrPhC2hmnS2DYxQ+2gpdgMep3lrRgKRz4JGDn+GwJ yuqiJt0vl4IH8dJvpjdLcNdbMD0stRQSNou9CgqWoK8q5HF6E1YXH3e+y92x BLGvXbveqZeB4LXPrOW0JeAtvSeZcLEMIJUuwWtiCRbkvydcyCiDlNGct7VM y+Dd8UrrPV85mD6c6Qw6sAza1MkyBf4K8M2Fs0rHl+EZ3q292KEC0rqfDhMd luG5E1Qxv6iAeWm9dY3ry7C61bZTof4DMitC5UbfLwMP3PsydqkS1v7y3rIV /gsF7kPdmbFVsFvSfWdn918Y7F4dMPxRBVaHix5/0vwLlyc5zgRPV8GbhNOZ bJZ/IfziTPmARTXYarxsrHz4F57wbD1vFayBT15a4qoLf4Ff70jOlR+14E6z +8nYtgKm/kLh/KcagSN94Oo16gosaxM4JWMaoeCs767+0RVoXixVRY2NwNgb EVRGvwpdr6+lVx5oghxKmfY1/VU4vqN2WFahGUZ7ZN7/frUKm8Y9f/L+tkBs 8icHi6+rsKg+1Kqj0Qp69vuZy36sQrlR1WqcVytEEE+5J1NWIeGvseWX3lZQ JjzaZcGzBhT94lXJija43DUdXxq0BmHxRVw6/h3AHx8EShFrcP1Q7iTrmw4o O8kym5S0Bkqil3z9qFi92yl9wv/LGkyO6NRPok7Ia7dlVhpZgxUuJWcR5i6w i+kvTFpcgyHvL9UvJLtgy+KKOwPdOtiz2Mz263aBZdt/P3+Jr8NhYUfOp5e6 YLalJCjJeh0obC7tQdVYfRtlpszgsg55/ikl+eQuMDLHk/x81mGipmc1daYL 4pqntE88Wofv6So//USxerNJapa+Yh3kgqLVRS93AyXiY4Zf8zpkTVEP59zt hvtHDU78Iq2DQ3ccT098N3Q12LwvWViHRRY5epnv3XCtPtzdT2kDVrNe4A5u dYPU8BGWFe0NaPwhfKCIEw+tDOy5IWgDjGeFH/Zg9agCill4fGYDurwCfHAG eKCWJd/PebIBz87mc9v54uER1VFeNXUDbuksedAH40F7TawpP2cD7GDysW0E HmJ0M3l//tgAF6shht+ZeDD++jaTOrcB5QHFYtHNWL3Y4WXitrUBz58PThwn 4CF9RmV0lG0TDsqpDL7rw8NflS97l2U3YV3uw7bJLB5eHb/WfUd9EyY/pTy5 t4KHk17at+gPbEJCEU7E6R8ePrwpruCx24TT7cRjs1wEcKgLckt22wTFtA9P 3wgQgHHoANOuq5tAOSkjuSlGgK/0/969CtqEjJbF9llpApyTqTqx59EmyD4h xtxXIAAHhM19SdgEvXV/y68qBCg+dzhRL2sTGPZ4M4VqEOBiCIv+j4+bYL3b Jn9CmwB86U29piWb4Jifd2ZJnwCVpVGhLXWb4Jc3xZ5+gAA+FAs5m+5NUMdf 6vljRADRVZ4G8q9NCJV0INUZE6BeqNvbZXITtN707D16mADXdRK5R1Y2oYiO xOh1hADSp+zzfRi3wENbIkLpGAHaronYL/JuwXVp3Zn/jhMgKJ66FrhrC1Lu B15/aE4AxS/pGTvKW9Dot3pG5gQBCO3n0CPdLbD3D5pxxvD9aelhLpMtuMB6 464hhvdyDkYkWm3B/d9bbt+x73v35KiKO22B1vWWvwRs/YhjHp3Znltw0VIm OwHbX8dT+YbSzS14im9uWcT4Dfw3Kfz5PrZ/Is/YMsY/NievTCdmCwwM3115 bkKAA7W+LuXPt+DwZj71DxBgfGAfg8nbLXDPfVvQepAAyXRLb5oKtiDVwjzs rCEBTKS/HT/5cwvSLV9RY3QJMHcoYKandQt4D4+d9NAkwPHgTZ2h4S1Q3G4U ZFcmwMrzHxTvhS1Qn3X8SpQjwOuSeyHz21tQ9ieL6ZgkAbb/MtZtC2/D/U/V Bcp8BMgVbPAM370NZanDkc84COCoHcnJuW8b8PqauHxGAuT7c50SPb4N58Mz vMeW8dCWJhD0yQEbd1Wbd5zGw2ideJbJxW0YUuhX9BrCg7jYnqkr97bhL5ei 1pUuPIRXmz2s/rYN70bateTf4iFzyuKDQ+02SG2JBRamYf2AkF3nVNc2JBWV oulYPMx4u0sIT2/DRqNqg+ttPDjw3yu8LPcPVmwaxm4Z48H/4CPqjsY/COkV cg3UxkOUR8xO0qF/UKIw16ahgIefZeknfp7+Bxe+7CqsxfpN5QslQwJx/4DJ L432sbkbNgoXBH5s/gOTqaRPs8bdIPh7zdCWfQdu6VVIMO7rBnU2Orcx4R0Y LI/WGZPshgvOPHl8Wjuw57zNc4X1LmhjUj3s4bUDHoVPND9/6oJM+4s3eXt2 oNTxo0osrgteBvtM7nOkQ6yfV50Sk9thXxX7WsQ5OqQm6Zic4tcOVUzvmfsv 0KHX0sqqn49j9XrMsEyMPx3aLa4fpvivDaSyzzlOPKZDHkcuVMR5tUFa3cm6 lxV0SKI0Qpxk1goq7LPdazV06OFo1pcHcq1Qahndf7KZDjHMtoj477QAhdS0 sd1Dh+6W8R6TKWsB4QljzbNzdKjyoSS7mHYLJHDrZPLL0aOJ+h8/P+o2g5wt /qO3Mj3Sk7eT/SHSDPkp/qVV6vToWtLTPMONJuiS/kT0PUCP+ovE9t+tagIe LUXOVjt6ZBd0kNXHtgkyb9eJyjnRo9gIwWZ+gybYW+6uGHSeHuE/RX7Xk2oC i8NZxkq+9Eiz3PXXxlQjRDmIBj6MoEdzbAez3mPvoXj69/96Y+gRy65LRz0C GuFDv12iZhI9OltQnP35fCM0eT393J9Nj0xuFvSP6DfC6U8aFXrv6BHumsUo eXcjjC20N8d8wvhI1fWfxTUCSzDHyIEyenTmmvV1sakGSPn5fjGhih7VrUXh HakNoMB0lG6ygR5ZOjYUqjU1wOGYhxKpBHr0ZI8we9a7BiB2y+6Zo9KjydmN MaPUBrggXKV35A898o12lbzzuAHCsrZslqfpEc2B3N9wtQGs95VcU12iR1HM dCzi5xtAqvrGU/d1epSu3+jGYt8A0zYa+c936JFwuU1r9PEGKBuc7OpiZkBd bS+FPhs1QOSNt/OsXAwoty+GyUenARyY3HHAz4AMJEts6lQaYFGBevKTFAPS KcXqMrEGrO9M8huWZ0ChdxxZHvA1QOxR6zgJVQYkM1WlasvRAM4Uzi+2mgxI zzHpbQ1jA6h4N3Y81mdA0aPfpvHb9bC2HjZbdYgB7fz86vVwrR4aoox41kwZ 0Ne1oiDiUj0kSWzs1TBnQLFWKTca5urBPe+bpYc1A9r1uTXzzHQ97Dt07eoL BwYk+NDPIHaiHv61q8UQnRnQZQK6fnGsHtpcxvM4LzCgs/JvrveN1EPa3Os2 E28GtKT80W5luB687rtOB/kxoPuGPMoFGNbjk+DKv8WAbBP3L/Bi85lekVTH g7F43Ww/8I7WA14r4YR0GAP6Hq5tlI+tn11r6eMQyYDKdUITlrH9fe3Yn8TE Yt9bZtylYvwOjtTl1iUxIIYbza2u8/XAcft+y2YaA3q7JGEUsVwPFJaDk1ov GRDtcmzUyXWsf322yn75HQP6o8ThXPKvHm4qF+55+QnT59R122qmBjAu9T1O KWRAiPKF4TJnA/CYq3jzljEgdfrKlXz+BujrHYk8UsWAMvuLP6WKN0Cuz8v3 dxsY0PLF0XTJ3Q0QuOXcVNTGgCiGnSpIrQGOxIiOT+GxfFseLt3RbQBBKSLr bioDei15M90JNcBXOHH06QgDyrNauj3i0AChXSyeTVMMKIrKMcx3oQEsztc8 2llgQHdmE6LJfg0wHmbYcPUfFi/rJLPqkwaQaVAyMxdhREf45zLImL9nHYYu PpBkRHZllzQLMf9XjGWGl+xmRGEMPePS2Pk4zS5cp7iPEW39rth4x9sI8RZM pozHMfxGXvekayO4/Prpvv8kI9LSTvsSf7MR1HyDw67ZM6KWIIbu01HY+Yxb rO4/j61XmC8TUNwIdIQ/qOIOI5Ib6K6uEmmC8InKl3ceMCL5zaYsA+0mYKd7 wWAYyYhc7zbMwckm4N97pu5bMiM6cFWIfTmyCRQiuo9++cqI9O/w9uYzNIP5 gRqrV6OMqKqd08mduwU6bLK/uM0wop+mQ6cL97XAKa9QnPQyI+a33XxX7FrA OXk/Pp2eCZXpyr5mf9ECvnMF9sm7mBCo/gt6q9UKia9fO0faMiEdnnmtX1fa QLTswY8jZ5iQAi6sxia5DTK6XKWY3ZiQ6zte050fbfB2W+LPg6tMKCROvH2N tx1KHJMuBEcyocTK9au839uhj/O/y76VTEhvK+0Sjq0TFG96BNqpMCOn1Ede NaQu2Lu//1TWPmYk+cymXWGyC3ToTmtM6jGjJMpxwYDtLjCJPj56zxQbb+eK +L27G1xy1Ow+OjOjjM0AhWy/bkghLmowxDEjcqLO7Cw9Hl6k+XBaJjOjA/6p Z98K4CHHbXj0WToz0qqR+mqIvX8F0z0v9r5nRscSq1fnjuKhg6mU80w1Mzpv 69cT+gQPzLr3xr4sMSMZLvTnJPbec22u1mysM6OUW+OGNlg9yF/tn2lGx4Lk G0qeSmP1hIyluz2NiwVdMZtkkjEjwMFLZrUsiizI5b9it7QQApiqVmbaqLGg kF+ElZnHBDBf0LuTocWCnpcpRrE9I8Dpu8qaWsCCytw71uO+EuBmMmfWudMs 6Mu/SE3SHwIEO4Xfee/CggxOKjeenCZAmOy2/dJFFnSiyuT6k1UCxH+a5Xp8 jQVJXfkyfYSbCHn13XeKolgQV63x9ypdIhQ+MXfYiWdBWRIL4oeACGU2tZrm z1hQpNpbSsAxIjT9Khrvf82CcrKL+hTPEmH47zMHzh8s6JTL48fn7xDhlbH2 jV+1LEh6rHjDPYwIrjEdcV9aWBBz1icLwSgi9MozN5+isKC/X7Vu/pdKhFT/ 7BGFfhbE+fRl6+EsIjhUHGBYG2FBaxJprIVviNB96vqBjCUWNK00EJKeT4TY LO7Tvhss6Ps7Wz+hYiJYTL2/iehZkf3zhJJDFUTg0D/8lJ+NFQWZ3DoiWI3x Dev/NMzDihKtCrmf1xPhUcedlu9CrMhGY4y9rZkIpuLCY5G7WNHnyceHPrUT gc4jn9FpNytSd5zLP9hNhMp8C5m9KqyI2GAccIdIhJDtsYM7+1hRvOzdHA8y EQyPPzzTrc+Kiv28Hel7ibCSJHX7tRErutGTVGTeR4SiP6UJt8xYUceOxZjJ byJcV7P/ctSCFSGmVNnJfiJoBM63ip1iRVmFahlogAjTtU/Gp86wIo/zl1OO DBIhl1eJudKNFR2RsXbYwrCXU41svCcrWrl5Q9l9iAgK784ZufuyosD7K66B GB5cXDurc4sVVb+66wAYzjZKCmAJYUV0z+SvFGPfu0RpJFHCWFElxw3WAWy/ XaSWr7mPWdHcV+vkij9YfmQ92kPiWdFZ/FqkOcbv2VX6SatnrCjFecbpyS8i 2JVmsMhmsqJl/4mYezQi8DMb7F7KYUVVNwk5SlQidFljPcdHVnQs57NaOAnL V4av87MCVsStEl2cTMDyNc4e5F3KiirKg385dxGBXedN8oEqVuRYGXywt40I 4a20jv52jP+Xmf0bdUQwEQmYyieyIr9sf+3MKiLsuPOzhdNY0TtxRpHNciLc 2ThmrDzBij7IhccNYv4wODJ8bmOOFTVdMsv1zSPC36f37rStsCKmg8nl398S wX/P90J/JjbErm/DFppGBPVbNl0mnGxodnNq6V8iEaaqpqcF+dlQ+OoxPYgh gsfp3Yql0myIsWXCgf4eEc5FxKfSH2BDZsyjhm9diSBOUP1GMGZD3JZGkwcc iUCRaux+c4wNlboVpqVaYXp93+Ywd2BDlW8NFD4eJIL5yOW7CdfYkCiaG7YV JsKRu7vzDgeyIUrjHglfLixeob7elVA21PHNov4sAxH2m1kaOEWzIVL8ZXLe DAFU3mgs7X7Hhs4qK584VUMAzkvLXt/62NBDHx2RTxex/m34rh3lKDuK30sR k07BQ1OI3sMoK3Ykv7vU8VskHuoEMV/bs6Owz42Sh7H+uuKwG+9Ld3bEGHjf y9oND3k5Ji3ed9mR8d6ry0dVsH77IivaLGBH+8U0qF2V3WA1HK8qJcWBmqQt ltcXsfpddZjoLM+BUub3q9LGuuDEDf3QdBUOlN1bUEju64JjDL+7RPU50IET 3nqKjdj9LKN6W8CaA8mJVY3se9EFVZ6h0rYOHKjSsiWdKbEL4Et3U7wzB5Ku P+K8EdkFB40CJXi8OVBjWrDiyVtdoOtcX8UWxoH674pcLDzZBUWvRS8fjeRA bIz8zJ+OdIHWlI/Ao1gOFM4pUtJxqAvU7/B7MKZzIML9dckYtS5QTnXl/FeI rSdTWMzG1QVv+wuKDpZxoCRWr3Z7pi5QUGJxCa7iQFEEI4/s9U6Q+573da2N Axma6aRl9nXCLuK6/dIIB0odrBXkftcJaRKWO5rTHMjWn8KTkdYJYhey3/sv cqAc3Rqv2NhOEF48sjnzD9vv3zfcy4BOSDJMy1Fj5kSp5fv1aq90gsCDGUsf Tk6kI+t/2cK9E3C4pOxxEU6kQpk/88yqE2Idx44rSXGiaVffL2fNOoE7a//S JXlORAmaOhp5sBM41AfMhvZxooyjvjIKap0QeUtnTlafEx15wlyRLN8JLD8i Ut0OcaKjUZ9tbkh2AqOF+tSv45zopvp6SwCuE8ISHyTtsuZEuPMhLVkcnUBH Ix5ycuBELzmaNvWYOyFUTnnsuTMnmpnPpxyi64Qt7+B4ijsnMpvdxBdtdsCd /A5DEW9OZN9w0i5jtQPW12SH7P04UU7sgcrlpQ4IRLeik25xopJc9cuV8x2w EtGkSwjmRE1OAR/WZzrgZqdEP18YJxIcRvVvpzpgSdgv0jqSE507lPCvfqID rrvUaMbFcqLv7paxjuMdMP9GiNaexIm092q8cRrrAN8Zr3CudIxPbacPfrQD ZnQq9p54yYnC014zVGD4Sggv+fE7TuTLuf1AFJs/Wet+v+kTJ1q4zbMxhmHp p5TLsUWc6MvZ3QwnsP3sXKzs7co50fs8vK0uxuexah2I13Aig+O3/7zF+Fau Gar8acK+jzJKysLiWar/Ivi2kxNxThlaSC93gHKiwo4PiRM9e3yOprDWAefc 0ic0f2HxZMSyF251QMJePuLqECeSqs1LbKDvhMaNR5U/JjmxSvWFqhsrpm/j 1vuHC5wogs8x8B53J2gmX088vsaJxubnhOQFO8HDffwu7w4n+qqam2wp0Qnp Gi5ePcxcaMKFMXRTrhO6tgi26VxcyJC7znyvaiccePZTSUmcC90eCDghfqgT /C/q8s9gxcqNHxwmxCOd8Fbz41aBEhcaf+b9itcG819bSreRLhea1HctZPXs BLPnXBVMB7mQ0+sGQs31TrjjEfa2xYQLaa81HNoK7YRhOt9gB2su5MtzzXU0 FfN/x9ClXY5caHSnRy/5bSdYpZ+xHjzHhfZIhDyrLOqEEl0zBV8fLtTMcqM5 BN8J0Zd3df73iAstXy+h1rJ3QbV+QumJGC7EEXdo9hZ/F6wwseXwJXGhI48+ vHaT6AK3rKXAFy+50AsfNfNfe7H6j9gi962CC4nZbLO62XfBr0NBt4cXuVB0 bvi+wU9dwM8555a7zoUeSbCfaSjF7iPKxRP+dNyoxG+wjFTfBQXXrWW2uLlR g1leYuDvLnj0TqlFYA83In2f7HjL1w3qfCRJU1dupBe4s9ET2g2jMaNhyZe4 0cMwhd+i0d3wgmN1bMyHG6Vr/Kq5+bwbuJhEC6IDuZFDPrfizaJumFw5c4T0 lBv9cuuTDprqhjd9v3y967gRLYSnleSMh13vR37G7eFBAmNyvClHCECUX5Ef 1OBBV95dPmtsT4AnL1midPR4UD2VlWPiAgE20pTsqCY8CD+Qz6TygACUGO9x OWce1OV2J+1MOQESb8zgvsfyoGTpgH15e7F6CP6e71viQdYq8y1WTD0QaKzM 9n2DB6WrC6bN8vXAqKnT5zh6XvTvlU+2j3QP1Byr3jDh5UUnZ39S1w174I5t TOIHFV6kqXLo9smrPTBuV2X4UJMX/bImuFQH9YCD41K/swEvMlEOnWR/1ANa zmfUcEd4kXL0p3GJzB6YuqRQf/s8L5rSs7DWaOuBs16nfay9eJEbixeLCbkH mi4/4VPx40Viz3LqFAZ7IMdv4dyvEF6UuzJOO7faA85BP1ZMU3lRU96zrXvS JGgJns+QzOJFsa+anDn2kMAgdLfp6hteNI07f+i8FgkEHz6Oyy3kRQeH9BOu HyZBW7S9Ml8nL1La/4ZPxIME++MiOyZ7eJHoB86+taskeP+0/GZdHy+6vmXY 8PoWCcJTZKsDJnnRYdvLOafCSbCYaudps8CL3Mfb1h2fkMAtPYJbdY0XfRqv 0pRPIIFU14raHAMOeYxRjAWySGBvg6NzZsEhSYsHr3TfkCAav4fQxI5D6WNN K1IfSbBBdA56hcOh6aXr1WbfSaDpcNuCVxCHBl+0j4WVk8CLHCcdIoJDLxJK zz+qIgGJWlNvL4VD60PPR/ubScDt1JdaI4tDCb6CzbodJDjc99dHQwGH9o6r fLbBkyD4HC9kKOOQXtlqjDaJBAW/lfnZ1XDoNVvYJRqVBBOuJiO3NHAoy71c 7/gvEsgMOJUMauHQP/a7bHf/kCB2KNalwhCHEpOuDeiNkqD+4nvNPYdwCG/y k+fHOAm2RqqZUhAOCUXVRLJPkUDbk0ZmOIxDF4VyfHfNkODy+HKu31EcyvF0 Gv47S4KX3jyhfeY4dNn6A3/KPAkok0o2x61waPcWn9L2AglwV4zlv9vgEFc2 6ZTqEgmOzpxdlbPHocWa2U6ZZRJkCj4k3DuNQ0U3foz2Ynj5wMcvfU6Yvr9I HS5/SWB+gfDE0BWL78bp5jwMZ0dteqa449C9YzkS9Rheyd99eOkSDoH2Gd73 GLaknpCx9sYhylvzRXsM59Dd3Mq7gumnHSjcia2/oZRBYffHoW+FTHgBDFuf rCvyuIFD59T23pPH+L29PR1fexuHTttDCP0ipscLwasyd3BogRSn+hGL71T9 weN37+KQkZ7/kuwcCXKnLyr03seh+hvyRh6YPnSCMfT64Tj015kSFIjp53Dg 26/ECBxKepokemaCBHnuv0rno3BIyUg7nm2MBAxRzCmWsTjkFG13NmKYBKfz 917PfYrNb7Fd7hkgATNdqMrFVBxypPuQNUwjgbPSW5bqdBxyaJn48YaC5d+q Y1AyC4dORf+sN+ghgcsLqXTyGxxa5s7Ek9pJUFR3JEDnAw5dDblIN4T5i2Pa 99TTPBwKTpL2rq0nQfH+n5wnCnFofkH/POMPLF8U15DKKhy6JpFHfPqBBB47 Eacl6nBo9MuTjzY5JKhQ/KoT2IhDpdnM65OZJPC+RTej2YFDh3SF2vMSSVDD //LcGxoOnbhVVvsgmAQ3LQeNolcwv0gaHdllhp3vmxwSE+s4VK7+o6D9EObP DK1Vs20ceqmiyHBJjwTtk2Ffdhj50J0lnbxjSiRQjNwtc4OPD51mmdLdYsX8 VXOR/qwaH7ISnS2j1PfAvHGv+F0NPoRz+O/d0I8eYK0+qZOtxYfuXQsTGv7W A3o/93uOGvAh+TszPk1veiCpHNd+3YwP1XRbdGj/1wMniypSn7jwocspGnsO mvaAh7ZWwefzfAjrKs+u7e+B0IJ3rd0Xsf148+a/afVA3teEfyI+fKiZsne/ gVwPcHzyupgTwIcmBVRrrtL3QMMbwX0/4vnQ1g7SN8L609/yUcf/JPKhi2/k Uz1LsX7l9Y474zM+ZBL3vv0F1s/Iv5pMPv6CD+G1gvy0XxEhLLNqs+cDH7pp Km8rHE4Eo2dXGmdr+NA3Wu/vEyew/ll48A9fAx9yMb114OlhIlxNdtzQaeZD IQpfX80cIkJGosne4E4+RCo9OjizjwgbcaKJrH186IaB+ZyEKNbP8cbmqfTz ofd85wP28BNhTyxjg+UgH1o9Vx9gi/Unp6Nn1xLH+RBFYXxujY4I3yLrXGT+ 8qGSO1Ov30wR4L15q2jEGh86+Ge4RXOUAGlcePzMJh+qahMhD/4hwP34/iPl DPzoLEd83zcSAW7YjtLJsfAj/OrSFKWbAB6CM2WR7PzIc7uMa3c7ASxSN9Qd cPzoCKd0pHodAeAs/USFAD96tz+7b/4nAbR2sb3eLcKPbHMP6PVh759ItpDI giQ/YucIqNMoIgCH+65uR1l+dPj8557UrwTY2r37SaU8tr+OzBu1TwQYfLdv 54kqPyoa+4+H9JYAPd76pYvq/Ih8iuYx/ZoATapGN85o8SMBd7kN9ZcEKJs5 vLdKlx8Nt01IZmYS4NOXE2OKhvzIwqpv9/4MAmRfs30Zc5AfLXeXn2FMI0CC 9hmnZeBHZ7ad2TeeEeC/v65CTqb8iIfndaBUCgECiz06q4/wIx+ekAn/JAL4 BF19rGzOj767/Xq+kEAAlwM3TeMs+dFIdlVt9lMCWG/f2f5rjcX3S+ZFaDwB TH8+KHa240cR8muOT+IIoPcg8lqtI7a+7yG5xlgCKJvGqao48aNTxEEFLQxL MKeMxLvwo5Q9xMi2GALwNGZkrZ7nR50Df6+kYJj+8eszLpf40e1T8vNxGF42 zxWo9+JH3VbaaqUYHuXKb1e9wo+ec87q8WPrUTuKIxL8sO+viMilY7gtvtJ4 /To/ikm7vHkK41NpW7/pepsfZSyktx3E+OYLtn1rCOJHicfOpttj8eSQ8H57 7/KjvVHW3plYvM9SqXuS7vOj2BwlHRFMj6izf4Y2HvIj+fbIvz+TCRCya+zF +Qh+VCsq8zoV09Pv94xjUxQ/yvbMUn/5nADu2ct8GrH8qDin+j9qOgHs3Ddb k5/yI/XTVgnGWL72j7KhC6n86D+mXa7ZWH73vufdaE7H/Fd/sj8Fy7/MZeGi fVn8yGW+L6niAwGYZ3cr/3uD7Uc8/jcJ88/aF5XBix/4kamLgfFRzF+T1zQz WvOw8a4PTMolBOj6a4R7XsiPlD3iOW5WEaC22Kxl5zuWP4vZzt+Yf78HWYR7 lGF+mf3MH9BMgPTtM2va1fzIcm/pjDoB8z/zrT8dHfwoR9/cqHCcAOLSzeTN bn7EPUO9IDlLgA4DyU7lHn4UdvnmVN4Slu8r9T/CaFg+/3Pv3b9DABaCULre ODZ/JfQHG3aey6a9Ey5MYfNvrD9JkiKCL0vl4/hZfnTLV3vORIEIJEOPwMll zE/2X/uZtYnwJvu7fSa9AGIsTeoTtcbOexmHZSuTAIqWu9DzyZEIXESXw2us AmjPg2907q5EuMnKqm3LI4BERx2EFP2IcNjXEcciIYAIHAw9vPFEGD6w1nJV RwB5tfvFrZGIkGpvUZOmL4C6nwVbmv0hgoVfdmnjfgE0Mn2E6cMEEYpeHXsv ayyAMg0fCRVuESGc/fl/PZYCqCN3V1z17h6QJxuiQ54CyFAm3NLkVg9cuB78 jStNAP1M+C0VKEsCPa3f3/a8EED2f7QA1LD3bBF9P5ItgLrePLdn1yfB12ss xfffCqB3s91Lry2w99v/aclygQAaYHk/MRBAghS/d+V9rQIoxzHRfh17H5uv EKrztgWQJJVNJfAmGTLU9Gqa6QTRi+rWxIBQMvhPp9aMMgqiwf0BtzwjySB8 xaVWhkMQOSquxAtnkMHdZ6IuSVgQ4X7Ps+fUkLH+eacxREMQhQptbfJyUaBz j3vTcy1BZBmbJ90nSIFXE3VN33UFUWGP/t6nkhQ47h3VPH9AEFEKRc8VqVMg xUuo9eIxQeQXz0YjnKSAhqdqh8V5QaQxJcAiH0OB397Sfp8uCqJxp++PppIo EH1FAMfjJYj+jonxPs2gwMS1TZtOX0G0vc718+ZHCrwOae2xCRFEOeOS20mN FLC99/N2wT1BFCB4m820gwJ0YYUiAg8F0Z8I+uA2IgXORaSfIT4WRB0dr+77 D1BAJMHnl8MzQfRPUW3vyhoFGpJcQ4vTBJF+mHZw4D8K3Hx2Slo0UxA9vZ16 hshIhe6MA+epOYJoXu+RmCgPFe5naTDsfy+IlLCnc4efCuqvdr9O+yiIruDL NatEqPDkHeeIUwHGl+VqeqsMFfbn7vxX8U0Q7fLnPyGsQIXxvCVFyVJBNBfn FG64hwpmBTSv3z8FUYznqBW7JhWWizrZoVYQjS6P1n/TocKr4trcrAZBVPuJ NWG/ARV2Kj5Ou7ULIrEjxmLtRlT4/DMrprpLELka2xF7jangXJOoLkcURLvN AoerDlOBoz6iM4wsiNzedtncO0qF0sZg/6FeQcR24qeSsDkVvFr8+A7/FkTW uMGb/1lQQbj9QkHOgCAyneU90W5FhRv4E8uXxgWRiuvSxKgtFbASIblhCuPD 5jhaYkeFLrK2ntIctt91ccIFByqE9iqRIxYFkYHyv+4xRyrs/SUROP5XEP0w HWE1O0OFvn5esePrgqimrisj+CwVogYZyz5sCaKNz73lT5yoYDCyepaDTgjZ je1LvOVMhbGxqc3LjBgm8NoZnqNCymR/RiuLEOorq9AiY/jwDOGQGocQGp2+ 53HShQqLc42/o7mx8XeZe15h+OVi+b0ZnBDiabAr7cSw9d8vMlaCQkhEo8Oe guF/q6+rP4sIoVweGZMKDOdtPHPnlRBCL7qN64Ix7LT9hNFfSghVTDAriGCY g+5+TpesELI4w/81Ftu/hOGmmaaCECpnoRYOYnw9mL1GnyoLIR9q3AMBDAux OUcsqmLzs5WvymLx1XFYK5/SEEJMtcfaubD4r3Mfbi7UEkI3K9Fmz2kqyOAM LgvqCSHvq4yn7mL6dfKrcd4yFEJWUpLajJi+RlevTqQfFELcL9WDwzH9Pzd+ bqwBIdRa9NB0AstPbIhmOO6IEFp5wfLK5SQWH+m6u/5xIdTjfW7Iz5IKVzWL kIuFEGrLPbB56QQVLEb1tj/aCiHTwg+iDJg/KlAgDW8vhFI0X5LfY/5RSy8t XT8thGSy//TrmlCB0/rg7aOuQqj9RJQN0yEqtJQazw36CKGth0kldzH/7hd8 2M7uh/EJWyk6r06FXN+6j/uuC6EEISZ1DVUqPN591Cs0UAiJ9q+diJSnwrEY iwGx/4RQlUlgMAhTod7NkWCdKYTwbCVkpRUK6JSn5ge8FEJnpU9FURcokCPU G5eZI4R4tRIkQ2YoEN7ibDGdK4ReF9cNJg9TwETHvT6iWAgRZWu29uApUMV6 tbiySwglUl8aHsXuj/LPYelqjMJIzuwnJ8MZCrBY2Is/YxFGA0Vy/W6nKGAz ofScnkMYCSdJvqi2pMDY7vYUEk4YHbg8EfbEhAICz0US7ksJo6L8L0Gn1Cjg 8zAvkmgojLj1ltLM6CnwXeYeKxwSRlY29EF8W2Sgr7R59AEJI5fmJ1ETK2R4 trbyMPSoMMqo7SysmiZD7VXje8r2wujR0KMqCSoZJE6TboX4C6Npi4xUpm9k 8Pj7fnn0hjDyMRoXoX4lQ35C8A2bAIyPzJXKmjwyHG2XuaYYKozeCgXfJeeQ 4YaJz5WuJ8IopvuntmAKGSr7D03tjxNGC2mjl7MSyMB+F3f5TYIwqtEYfWwa R4as4m+ed54LI/PNDR0K9h60qtFdkH8njB4+Lf1qdBd7H1rwA7G5wogatf4u 4w4Zznu+cVv/JIxuGB4tFA4kw+pLc5eOImFU0NVwxe0GGUxA8pdBiTAaJPU3 7rtGhpi+OafX5dj4XFO8lB8ZdosknwmsEUZnH0y/P+VDBt8iT8pgvTB6xzkR l+5NhlKb/Y6Wzdj6bRqCDF5kYJrjIhW3CaPder/uRHiQ4WR0v51clzBqiLBm UbtEhrQ9BYRoAqbXK6WVuQtkGGkIt10lCSMW6QMRBHcy7Lvo2H2+VxhdT0tb Ip0nQzC9inXbL2EUefzx9Q03Mowe5qQoDgijbtvOc8YYto6cdn0wjMWrrpD0 zpUMZa3tY7QxYWQMI8Z7MSzP+8VPbwrTf7Y+Hu9Chljb+NX4WWH0Mof87hmG 15Kv3ZtaEEYCa2EfQzDsTrVlPfJXGO3ji/jxAMNtu3TisteEEeX42tZbDOu5 CYlsbgqjBEZ4NI3h7NcrmfY7wmj9m/ANW2w/jjGy4lcGEaSrG9NLwfAtldLP HCwi6MY+hu57GN8/V9P0LrGLoMPjil5HsfjM84Mrf3KJoIZd/z5rYPEXLTsf EceJoFTtvnwDTB8pA6OOmwIiyC7Z8477RTJEBks7dAqLoEiT57yfMD0XK+l+ 7xEXQStZP26JepLBmWHwUrikCPobdOtzDpaPRrPamd8yIqjRqLjE5jIZtB7n 3DKUF0FJfl3x0leweqPtv+1EJRFEd8xzH48vVm+cOsZ9XF0EHZi6mmV5nQy9 KXuSX2uKoNMfV+0ysfrkcC+H5D8dESTVoJ/JG0AGsfPtaoUHRJCph3n6qRAy hOd8LuIGERR2/oyM4j0yzI7FHfQyEUHtfJk00TAy1PjaWkgeF0HKeUzBLph/ 1Qq0iQEWIuiV17RE/hMypPwVdMafFEH7I19c2Y353SeE7BPhIIJs/9oHe2Dn QzDK+cnCBRFEPXfA4fxbMoS2HxKw8BRB1XN74vJyyTCOk05/e1kE/cgPXhb6 QoYfzwZyna5h6/86bW9Sgp3PNx4t9aEiKMfPxXOjlQxd40dtZcJEELf/Kc59 3WTYr7an985/IuiLrETtAxIZeAunJjSiRZBatqVB4AAZSqr82dOei6BRszsW 79ewfPfdOeZbJIICgmwPNapSQC/gA3dcsQgaVFyvlNaiwHl+Cv5LmQhaTsCV PjGgQMkx3XMLVSLI6NXj8gwzCnh8m7t2sx2L58ixA8/dKFAdezH9zqgIegeF ubnPKRBobDX7SFQUhWkdl7gpRIWcvpDCdxKiqCDOcPu+JPbeBHwMbJISRVWB BfVJWL2i+JmNkUNBFL1i9rTu1KUCQbxWJEZTFDWEZqqGY++R+rK+caK5KKru UXr8JJUKI29lk7JCRFG+vtk6265emA4fWGe8L4ouktGDFvleWHR/6er1UBSd a6HQh+/tBTppWVXNKFHkXDb9u8+oF8SfydTUPBNFJi69/SLne8E6Qnp+pEAU mTOw3jR73QuOl/rtzb+LIm7JAI0TH3vBxTSr/HOpKCJfSdQyLuwFnx2piIAq USRN1D61VdMLjwKkpNg7RNGs5CGN1wO9UOEpaaE2IYpcshOunJWgQa3Zr/z4 aez7SP9/2nI0aNn9QuTvnCji6FHPW1WmAbl/19CPFWx+RwTfQT0aLDruunOS SQy1bopc+3qSBuu6ff2FrGJI5/ELY7w9DegEM8xEOcVQTup8J82JBtxdEnwD fGIoKopT+o0nDZSPSby/Li2Gdm6VdLGH0kBDkcZNlhNDTBccWtwf0kCPKf3G AUUxFH5M+NPLSBqYVokD015svvM+364EGrgYiJOS94shz9fuMjNvaHBJuPfA xiExVHUUn+SfS4Mry89fuhiLofLJ+M+UzzQI+ip2VemYGMIbKjo7FNMgSVmM qdReDK23yk0yNdLA2UXx3dBpMWTH+TH8agsN5JO0zXmcxdDF/vT8H+00KNqx jL/gLoaSAxWzBIk0CNF10o69JIbI3H62EmQaHPbxIpV4iaFR4bt32XtpQCSF 7eLxE0N8BUPaGf00yOCK/2lwXQzF0qlWoUEaXDR54X7hFsb3pkBD2zANlj8V vy8JFkNHbKTs0idoUDFUd2IoFOO3bjv1a4oG4WL4We4wMfT5vrk42ywNBP6b 1rkQKYaO/hvxF1ikQW/ZOjnmiRjaNEj8trxEg1fzLMElsRh/Qf62H39pcFlR UGroqRgqpuo2+q7SQMtZtpo7WQxt4yLKWddpsPFU/aJBqhgq0TL+GblBg5rG A6wX0sWQ/AHryYVNGthqO1iWvBRDCfL3pe7+o4G494X5wRwxRBUjumbt0GAw 0z+R+z3G5+Yvg1y6Psgl3tUz+CiGDlnhm1/Q98F1jidU989iqPB4pM4dhj7Y j1JDYvLFEJfDtQxg7AOG22+kS4rEUMaZVMVZDLd8LKgZLBZDuj9frP/H1AcJ Az8vcZeLIf7xwkOszH1wVqSdzaBSDDmFpe+6jmE5y96P7tVi6G1dVnUDhifD xqxi6rB4YhPOMLP0QUHJ8kJxoxia8WviV8fwnVn65MEWMRSRKChpjGETeV4D 7g4xZJtY98EIwxxnd9H0u8XQn30ZU4oYxsftCXUniqGOv13CG9j6afV6sjFk MeRTzny+BMPum6Z1xb1iiFX8CL07hlU0bTwHf2HjVfT7VjH+ix4uHNwDYohY yKoUiOGyDJ9P+sOYPwMfyI5g8YbhA63dx8TQvPyskxGGzdkeLUVPYv52khQM x/TiM0pMKZ4RQ3RaKo+/Y3pSbmQbDs6LoQH625s9mN7ZHz71cS2LoTy513mD WD68+svu6a9i+j6N6+/D8rVPqEnOfUMMbdw/SanbpsGaeU999Damb59SX9oW DaruD3oV04kjx0+Rmq5Yvq2ntz5zsYoj5dAz84VrNBCV47DV58DGly2nD2P+ +eMo8vc8tzialWtyqcf85V+reaBYQBwxhEtQkjE/xqd5NJ6XEUf/tG1z72L+ DbgddiNktzjK/37mcwbmbxfbTOlniuJoV2m1+ucxGqhxkALa1MSRzdyuPx+G aNAcZKasbyiOSEZDHVw0GjCckX/MZSuO3vr8cm/GzuuEDtJVshdH+qr/JejV 06AL5zxgfFocHTpfEZheQ4OspkTDABdxZLJM12L5gwYHDRgnBy5j/Bo9DroU 0OCWyKB58UNxZIRO6dxNx87/0vZK9yNxVCpF6opLxc5zp9jr6cfiaEKguTEr mQb8ETabsvHiyJVcplUaR4PPK1UfozPEUQkP6yYNu6/Ge7K43L+JIyai6fi+ KzTozC8vCSkRRzhZRpKpNw2+x5AvPisXR19PnGg444GdZzPeH23V4uinfDBv vBsNZL+FXtXvEEcKN5iJGtj9eTbpXAfXmDiipuqxRAANdhVySPhMYnzc63PL DtKgv7vYs3lGHAUOH9i1ZojdJ7z89I+WxVFYGnH9qQ4NfKMatHfoJZDEwic/ CxUs/x9u3D/HLIG6cyxsqUo0WGqUaS9nk0BJL+W4byjQIJA52COQVwJBzc87 HTI0CLuv8XxhlwQKDwhfUxfF9MjqGzkpI4Hc82S91IRpwFr5WOvzbglENjW4 YihIg+jNodbLKhJosjX51kMcDazEn4o275VAuKc4sWoeGvAZGl1S0pRAsotu MbzcNEi5nfpvSF8CzegaCf5hp8HpZLMTJgckkIVbbYk7Gw0kihafZRtJoBVn JttVFhr8xmcN/zOWQOzFdAqZzDTIXrDQPGcmgWwmhW85MtHAHbdxt/yYBLrz befhbkbs/tZ41yJmIYE4nzY//V+FdR4P1fvFAZxIm1ApMebO3DtIkUqoUM/J HlLZoii0yZItFEpFCi1UhBZFvpQsiRCRJZKUNfs1RooW2bfE7/n9+X7N9jzn fM65M29eO3rqwn/0iykDJqs/Pp6ea0Mu4emZKpYMyJ1IYYhjKz07+O+WNQMS SxKDds62ocH3Cw2HbPDnbbctC/rXhrK+50TvsWOAeAxnumWmDZ0WOtKTdoQB BTaWntrYW2TFNgqfYECe1Uxq6d82NK39JsDJiQFhH72aLbELHZyq3rsyoOyi EYcP+/xFiVVrPBjQ04cKi6bb0M5H5Q6XTzOg6NDWmlvYgsUeGT2+DHgTqxMY gF3RSczs9GfAvx1xU/7YV2eqDR6dZ4BP/C37SGwjxtmo2YsM0HqQ0laILaIu x7O5zACZfJ+QWexaqwalgqsMsDDICf7/eW75XvCXvIbvX791pBzbInr9e9+b DHCKHfy9C99ndU6b+JdbDODp9t7oxW5ruGKvEs2AUyVbBu7ietwfVkm/FYv7 pcqm7HG9Di/jTQ/eZ4DK5t87duJ6Uhtv6u95xIDjQgL7t/K1o68mmnfSEhmw YX27nx5/O/rPtZ+7JBnnZ1og3xn35+S16PVOzxgwas8mUnD/FFO1/d6nMWDp 9+/Zf3F/B6oGK+Re4PsWyIUcx3nI7Huw4nI2Aw7yFcX0LWhHXguM7HpyGVC9 6cnQRZynSZ2kqfgiXO9nSRemhfHzuiA+qLyEASfvWPTk4TzyKcct7S/H/ZvJ Dg3HeV3AukkqVzNAJ6sx0hXnOSwqNNXyEwMIPfm+AJx3EeFgVf86BjwQN3d+ hOdh1dSZXeXNDAgseF7HYbajODevhr42nHdS+GEQqx0xv7naLqUZsLop9eQE ifPY4OBh+ZUBP18/LpHC87c5zTi2b5ABM9Q1fxNlvB84+pylo3j+tAZMjVXb kXrczrRNEwyoWpodbru1HWldUSvx+8eAPaFlefk78H62Z/cLL5aGHL3CNgtj PO8rR7du4kiDdYZy65wT/n8WPlBqIScN7olxLTJueN/N6zf2WysN9QlGAge9 cD3+dNqVbZCG1KlGatq/HYVXVV610JSG15889Gavt6OUc/dazlrg9+c7Xx7M bkc9vVpnSq9Iw8F4z0W0MH5exn9KWBcuDc2NrroaK/Dzx+pAza0b0qBr0vwu UbIDHar2oI5EScMDvjWsKLkO1Jb56KNAojSE3TRpHwD8PPWfZesWScMZFaH3 a307UOmy11WVo9LwIV29SOB7ByKrdUc3TEqDPN3UsWSgA10IriNi/uL7rXva tnysA+2Y6PNynMcEfU7NV4ZAJ3rdIUEsEmPC/RYxW1FWJ8pK9vY0VGDCguC5 TDnLTpSwfROjxp4JexekX7hZ1IlKTRYH/T3KBF/H4QPm5Z2Id7jnx1pHJkRN 1TuLfOhEnEtRr0NOMeFO+fEd9k2d6EnFlDX4M8HgpLya/89OlLSnNOblHSaI KW3m7F1Jowq7e3y8u0zgztv4Z7cUjb55nHYUu8cEZ43gmO0sGsndkdvq+pgJ EXsm6obkafRfS1izXDoT2F8U9J9q0CjF3mxVXCUTho6G7tp8iEbvPRXPv//A hAoRy+uaDjTqC5r/bbyGCeHMOx6qx2kk/19ujlkjE84EJL8ac6XR0x8Mi6Xd TLh+Wi8vLYBGH/6OFmp8ZUL/LqGATRdo9EP4k4zTdybcTfTf8iSIRus2XBit +M2EeGUta8swGj3z+nr7wjQTfu4a7P8ZjT8f/OZv+j8m0Gqk4LdY/Pmo6COd fAR8Id8WfbpPI4U8g83qCwj4aTfB75JAo+czz+tHVhCgNpd0oek5jT4uDVGn JAiYuJ1koZNBo1/E4YS9UgS8T7v37vELGinuXOaZxiagXbs6XP4VjdIuey87 sZ6A3YUrrx8vwu/XtL10eSMBZTcv5+58i98/qjOSuJmAUx51HsKl+LwO4k3c bQRcSrD77P4On09yRndOkwDGKHVrcSWN1tb1vGICAd+WF3LuvMf1RS9jDugR 8GHB41mfalzP8bhFZ3cRkDeH3Gs/0mhN+iW/u8YEbFKw4pf6hPsjbWrTaErA 03xf+lwt7mfDtpphCwL4IxwPxtTRSDac3LHMmoB3Yo+tE+tp9GRqkGVymADF nG364Y00+prZEuHiQMCulHo3xyYacRzf8ocfIyCoj3VN7QuNHFgpnk8d8f3n axeMYSd8udlT6fz/1w8w/2umUfd1X/NvpwgYkbjYoN9CI7bu4XeCngTkD1XM tWHbzeipcbwJUK5Vfne4lUbxL5WSd54hwIN8o/8Fm3ZatdrOn4CwU7uf72ij EUHNXj1/noCzZrmrY7FtW3un7l/E338i92Uv9v2IGqeCYFx/ycEnMu006tDP aW+9QsBb72/iltiMufvGk2EEWPbPKvphH3gV/GbVDQJSf52ViMSOc3VRUo0k oDbJfS4Ou03GPN7sDgEJ/nViMdiSHRpinncJyLlnc+YqttVtzsWIOAJ2eD06 4oIdY7hkOP0BAfKMcT4d7Gb+EYeaRwQ8zj0XKIq9Kr+t4WciAW7VUqKf8Xkt 3Ut1FicTYBzozr2EHbXmWY78MwLCOztlFLAb6Ug5/TQCDs7zE3mP6yEeffbu sUwCZkGs1hrbbLf9wuCXBCzfIf2Ai+t5S3DX2YRXBByde/fUBru+YOOPt/kE 3BnqXPcJ92OZ1+qDXYUEpPe0WKhiR3R/15QuI+D3LcdLvbi/tTGf09QrcH2U JoeUsEX35hLWVQQ0aFp9P4XzcKMohC/6MwFViz/oNuC8fPI+5ZFdT0BNmDk5 ifO0dL0lr76JgKbTMSfEsa/dky0X7SBgw5MaQuUznifTpapKXfh844pCW3E+ lyweSzLmERC4RFJXpYZGYWfKr4T2EeBtq12wCuf7isURI4ExAkJdg9TDKnC+ 9nTYHJvE52urM9mO56Vwl8Wpyr8EGLW3POsvo9Hwdv3I8HksMLyWG7ChhEY2 cgrNK8RYEBZq7nqmgEbKE8MOMgosKMveHqyP53n3kPPpECUWbKqR9c5Jo5Hj z6+X+zaxQCWrs4HE8/+g60vK860s+O1zcc1ECo0Wvn89oKLHgqGGHo0HeF/Q MZf8dO1ZcIpcI8/C+2bq1t/w5KMscLObTIi7g/t1/fSDRY4sMEjzS5G8TaNd F4+/rTnFApkz2jc5ETTKPmkoZBnAgrGfWfvc8P76fKRMIi+QBT4prc9EQ/E+ sNVcKxXEguJKy8mcKzRimSoZ06H49xK/x668jOulvvzW8bssMFn0a0Qe78ck lfDE93Es4LNJHuQLpNFbJcGcdQ9ZUI32U93naDRGjTcPPGFBrOoOtQJ/Gokx 3fr3prAgT2h9fI4f3qcSfdNZqSxwSfY2zD+L53NJG9M3iwW5L6qcO31p5Dff bENrDv7+bDv7WR+c17lq0MhnwV3O4Zi12JlTOqYPClngbSZnctgb79+RN0fm ilnQsEuqOP40jXp/q3nbl7FASe+B3E8vGvH1ZYSUVbCg99CS4p3Yqh2Pn16p YUHhB+7xZZ74fEqOkxm1LJBEqedve+B9Gqik39LAAuZ8gZVs7Pd1o1F8zSyI yhK3yHXH+4tT8FW+jQUHejaftMa+4H1x875OFmyObvETwrap1L90lsuCzrj7 WUVuNNoqKVL3uAf3e9m2rZewxZ0bWR++saBkKkh5H/ZgYdyp4X4WVDS7Vipg fxSxfyP1mwV9R+cYy7FT7NYIaw+y4D/L/eaC2MFZvw84j7DgmWrK7XnYdoLZ T2+Ps2C9vtqMMLampd9kwRQLPK5aZHCwV6eA/tcZFvgVnqjRw54OEDAS4mPD umtt3j7YfUnHPeP42VCZJ1uZhf3lU1WskgAbltlX0X+xyycUS0oF2TBjZdy6 D98vix3RZynEBqk76vXZ2I92jYj+XMAGOoHzVQbX64an5ZbARWzI1IqVT8AO uJd/aMUSNgjwK+Up4no7lUuHJAuzwXrI61k5ttXvwDQNETbY+/xd6YT7o7eq p/GzKBuUCVMxJu6nCtKbObKMDSmR/Omd2JTjU87kcjZMRd+Y9xz3XyxS2Oia OBtC1pxhX8X5mM1382SvYkNvjJqkJ85T6xK1EgNJfN7i3+1uOG8VKrF9HVJs WOySURaE85htOyPqIc2G3WVfSpJwXiMySg/FstgQsPziJvHzNDrfIhuynmTD wOfAPDucdxf+0LQSig0xau0XCvA8GJjtmemXZYOq+Lqxe/j/glpAFuf8GjY4 HtROJ/H8yCStNFq+lg1604JlOSE4jxPtseqKbHC4YCmyCM9jXpzjlnBlNsj2 f7K2icTP07LqQywVfJ74VbIWeJ7v/FIKeanKhgUSr0xsomjkvmOssX0rG4YD cp9F4f8b8ryLnoqIDdtDij++xPti1ZLe2LeAf//pVAuRRCNBFYMScy026K+J FYxJphH3sojYOV02tHT5XcnG+ydm7b20GiM2tBt3JdzJpdHoiF5S0G58f5Op huevabSnaPj+tj04L7Hagk1vaCRkZngtyZQN+6+JTJuX08g7YMrpnDUbgvI8 VovhfW36eb/8+hNskHPR4bMcpFF6rAC7x5EN4YNd5odHabToaIZErBMbkHXN GZ9JvD8mhRbMP8UGl7uWfjV8XWgD9aq34zQbhIaqNCSXdyFhb/HEa5fYkCu7 UP2vWhdyRG/jtIJxHqtUTT9odKGyRS63Ji+zwW1H7UQidCG/h2UXj4aywU7F ccbbsAv1V3raaUawwaxTUv3GoS5UIVXH/PWADc+aspv2X+1CgW+vxxjls+Hc RHC1D7cL/eh8e2fqNRsKHiwLmu3tQpZ/RyKSC9lgc84Urv7sQopqB0IF3rKh Ljbo9aPxLtSSKudXUMEGUSaSchPiIuW7xQcVGvHrrA10sjQXfXMdIpb8YcP8 7QFrCQMu2hcuw8gfZMOdx5J3Swy5qDBlv8SJYTZsXp8war+bi273vBEtG2ND 33KtJbGmXATWYXz+Mzj/8jfCO224KE6Hw/uxiIQfZ//Iprhz0W6GRdIHGRLS nSnRe3e4KOar0tuDciTMEuT0lWgu+pq2sP3XGhKcrv7Kd4vhogAoFBNVIGEz 79/lDfe56PkxToDZJhJCfYoXuiVy0eLMIdOO7SS8iPla+zWTiyzPVru6IhJe qT0S8MviogStpKuzQEIfmHkuyuaibU1WRWwdEsZX9/xclctFjtPFa48ZkqB8 hlPys5CLKnVu8A1YkjBPN77nbCUXLRdxZARakbBxLfd35nsuOtS8U03sAAlK JhpCvCouGj855qxsi++ndeeo8kcukrtp0+xzhATR/aFC12q5yNNKbXjBMRJW 7rZLu13HRUWk2NLY4yTkPvnsFVXPRRbZZVoFJ0nwqhJxv9LIRcGt69Ln3EiQ u/w9U7aFi2oTBKsiPEhQ/+bbMYst7UL3kF4k3A3eZVbfykUvZyMldXxIqHIR Acd2LpqtdFZp8iXBKivl3boOLjKM1N1z/CwJQVm1Od+xeZyp4KsBJPC3GE7t pblI6Xd9vOR5ErYV7D78D9vv1fPXzwJJiJLbYfGkC99/l93gx0skZFXvl+Jx uWjnqcqDy0JJeDPyGBE9XDTd0q9XHkYCZBWIp2Jnawsr+14jYWhb0fCmr7ge kvsWdt7E/W34KKzUy0XcIK+Rm5Ek7E1OdE7Ejh2IorVu4/s6jq1e8Y2LhMvb slOiSZiI9n/ajV2h9C/+YAwJrxuns+A7FwXGssJF4kgImw3ZH4e9VVDLp+Qe if8f70kdwB4+ddT+9AMSEhX7S7f34by0hhiviSfh+fy9L69gH9N5uqXtEQlE VHfkR+wWyYGl8AR/f0KXu34/F90KFpsaTiLhnmjvg3PYRn+UvyYlk/B2Umt5 BrbgAYvPVk9JGGDK97ZjF5X7vl6SSkLajKSS4A8uOrMhLqnoOc5r+rCgPPam uMIIj3QSLIrpi/rYPwS7/GUycf3mHXzjgP3Ejf9E8wsSImyVa89iH2rjmIa9 JCHjhn/DNWwJXb3t23NI+DIYzb2HXZvhKD/4ioSSLYrLkrHDpMJXJOaRECIv H5iOrXM5bdbiNQmHd7/WycL+9+dz/8JCEsSTTAP+71cHhhsL3pCgaRIPGdju 78TfniomwU8p7HkK9rqNW1LJEhKWRKu1P8TuibOObizF5+ma/R6JfX9+wMUr 5SSgpZ4DF7Et3R+6qFeQQNrvW+yGLdb+dv/vSny+0ev7rbGrdHu0HlWRsN9Y bxiwL2XOVzKrxvPQVzYui63JkJcUqiFBsuHMxYXY45cNBfM/kbBm47/0Plzf jEGXP861OO/lwvcrsKmKF+/qGkhQXWInH4DdsbExM7iJBPyPjN8cO+re+L0t zSREvykQWYe90EPD80Ebdqfgtjrc79J2W9u9HSS8ZEhEJmD7610wEKDxPHBd bnliDzDeESe7SbguQS0QxW6sMKlW6SNhnzmMa+J8xUs7yHwcw/OdtrI1BOdX fbOCksMECaNTOhrm2I27RrdMTpJg3touTGEv9A0xkpkhwdS1yaYYz4N73TPP gHkUSAos2SmAvbjPK2C5IAXNBgsyv+D5eTKrGZIynwLbdct2/X+eWhQ+xzYu pOCqlY+5FbanVkyi02IKcpNFRjdiC1vbp/EJU7DCQ2H1EmwIGXmrKEqBRMgH vXIeF7XdL/xQKkbBE37Tc4nYp19ebrRaToHo7mMRwdgiH0zogRUU2FjGRp3A TuFK9AWvpMA00DzBGFtrgjskJUHBQbma6s3YHUuf/c1cTUHg5oVrmNg+Ml7z 9aUoKHja/H4h9jINTdFOBgUZmq3vxrvx/O2bL+nFpODjj9PK37H1HD9Ri1gU LLvfTrVhc8/fVYxnU+Dxbn7qZ2y/KDs1VYqCObEsuhJb/PlaqOZQ8GPx0bpS 7PTS4V32shS4NThEv8U2aC0wm5CjoKIpF0qweX+Cba/LU7A+eH1POXaAkMkJ zjoKOJImEdXYq5gSHvkKFHTaOhxows7czPXbs54Cpo+7GQ/b0PBpcK8SBU4v 1K8PY3+187zhv5GCWvsdkkL4fud9NWKWKVNA5WUt/P/9V98QTEjeTMFo0hWX LdhZT2pSt6tSoPruqIUFtnFBdE6DGgWPdFMafLC/1R0uPrmVgnncYxP3sC/0 yVfNbcP9/nys9v/9kpobqo/SoECqlnNqCDt7ZUGHwnYKFGQ/dZG4vyaKwd9K dlBwKFFHxRI7yHrV9O+dFJi8ulL8AZtw7xII1qagMjRo+RKcr7yQlKVSuhRM 6qZc2IP966U6qWdAQdqtnT1fsUM+CCh07KJA853JkCrOK7v7o4qnEQX8cdm7 w7HNRQ4bPDShQOaUKKmN9/GAjLypyl4KDKp/pydhX9UYOvhhHwVGG8fzhPF8 FDoGuY2b43q+vO7chy1TlhxtcpACewMP22Y8j58UJ5902FDQeLVDweb/+zLa 4KXTIQp6WyMje7GrT/Z/DrGnYCP/OyT0C+ddTGFR8QkKzhg304ED+Pnn5y+x +yQFXk88yXV/uOhdT7VsuxMFbTftFVuxV+e6aE24UnBumW6a7hAXFdum+284 TYFltlKF1Sh+3lfOhr7xpmA8viVv7Rh+vm3aE2PkSwEhMnVjDvu44GD2CT8K 6r89/pU/gecrddNA/AUKAiKOh5/8y0UHJrPtxK5TQIfJymYLdCNBh/luD29Q MKhV6dwg2I3Sqy3OKUZQoDOgETYxvxvxx4/HGtymIHRBLzJZ2I1SdLc2XIil wKqkRFx1aTcau1WgO5REwUrbrWE9Et3o4cwS88BkCp6erOjbLdmNDI7bOCx9 SsFCEZHiQqludH/bv/Nrn+P5NJzISGZ2Iy3ujjz7LAo+ByvEv+B0o4j1pevq iyiYGAtLvrYR/97Wg4suvcV5YfufPaTcjYq1R79vKqXg2vLgUhWVbjRgLZcU +Y4CM7f9vgNbupFRSBhr30cKwrS2X72DupFQl6l4bSsF3xJ2KNzb0438I3r+ 1YxS8GFNxoCAZzc6PiJYV7WOAzd+78+Ggm506JnOJxtFbB+IdHjTjSztg6v/ rOfAI6PbvkHF3Ujvs0DFyk0cqAp+vbK0rBvJpc4rsN/CgUtqOrc3fuxGvQ58 SVPaHHA0q24t7ehGR+v/nllry4Efjf4S+jPdyCZUw6fwEAdWde5Llp/tRubg 77XHjgMfvveoLeDjIZ30aVfvIxwIaTlPFgjwkEzYlEPJSQ4Y3+O8n1nMQz07 J4ytfTjQ1fZ5d+dqHmqbVDP85csBW6Gle0KleKg+w0c/8CwHmvSrH26S5qFS 5vjOpAAOmJ4fEPJl8VDC1Kja0CUOTO3JX9koy0MOL4bZoTc5kFayka9uEw+5 XDKbMYzkgOt+6RTHzTzkbZbdLHybAznVHpv+qvDQ1THvGxHR+L43HerFtvJQ +rapv3cfcODgq181/7bzUN7iA83W8RxIveo+64x4qKT9dRbjMQceO6UNNgIP NZ4LOBn/hAP5uu4r7mrz0FTJ3Jf/Ujkw3G2o2WHAQ/Nu22U5pnEguNrXnm3I Q8JHS66vy+DAvY91eoeNeIgQCtJJz+JAfeyaAzW7cb0MhbJy8nF/anvHnEx5 KKJe+Hp5JQeK/ju+IvMAD8UlujqGVHGgZuQnK+EgDyWe/qRtUM2BoXVeO2/a 8NCrVRHT1Z848Kx0Xt+BQzzUcWCFY0MTB+bn3m3Ns+ehbwqntaOaOeD9M/Fx sAMP/ZlpJPa3cmBbmWa90RF83vjoprYODmx+ZfXw41EeWtMjqc3r4YCnyuK9 sSd4aGO2H/GklwNr50dW7nTkIfXL7VPHvnOAX+vNim/YxmseZPb/wP2tqjhO OfGQpzObGBriwHn1XS+dXXgoQPPiVNYIB2jPraGj2JeX8hpPj3HgP/WnOWdd eSgmIzF8cpIDeXXlVmdP4f5eEDzxepoDAT/OjYxgp+47phUwg++bUKfo7MZD 2VQFc8csB47XeEp0YReNyE3NzXFg5rlFxR53Hvof6XsnYA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 0.5762099145626105}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5020884331011515`*^9, 3.5023557055283737`*^9, 3.5023583314855704`*^9, 3.5023583753810806`*^9, 3.502359442941142*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BodePlot", "[", RowBox[{"W", ",", RowBox[{"-", "3"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.502088495859741*^9, 3.5020886108253174`*^9}, { 3.502088861436651*^9, 3.502088868594061*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt2Xc4Vv//B/BbCJG9bzt73Tcyst5HIZVd+URL0kaDUhISipRVCiVkK3tE 5bwkQmZJVla27H1bv/O9rt9f53r88T6v93Wu1+v5Puc6kk5Xbc9tI5FIQXQk 0v+uCzLJQSGJZKD1KizeO4xhqebi1RqvydC60rD+zRLDjrnHMv55SYaE+DsM 3Acx7DOEB1DCybD+Y4QnFcOwoOP3/Ft9yKBfKKnRqIJhQhF2PmInyBDuI+wu xoxhhuvMt/L5yeDRvHf+3h2EPfzheq7zsTA0x+geIpkbYjIXckoaTwmBfePM UctyPcxzx4xqsYkgcCe4684e34OZOLzXlVQXAIXcl2aRjNqYWORAKZWJH0ZE X04Eeu/Gstr5T2nM8IKqFOlEp5g6ZsxUebOzggcoXYqG6qIU7NjAhCRjDDfs 7VX8wcmniEnU88xLBXBB8+aHxN3OMtjC6wLtof84QfzUpqiTlQS2up68V9OX HRgu8jqdkRXA6AS6DdPs2SC3KfF9Ui0rJkFHL+XEuANIRjQeNYNplMYsb0Xf wQQeUeoMidaLuEmf/tnJe4ywLFscpGDPDl2chxJ6VOiBoc3gqWmYIHSc+k+u mJEO7B47hbW7S0DXaqri+5Mb+PUYJQe5JGko/n7eUdN8Ay+qwPgHc6Uh8rVs 9GfdDfy/I3tiYnBpOGiUStcosIGbVNxtnuqWhrJHKe1TLeu4nrjITiMBGYgV SA6imq7jjOnnWO+FyMAxzcSBAtU1vPCYCJn/iiy0XouLLdtawc1cPu1c4pYH akWkQMO/Fbz6/WeWXAl5eMIV8qy3YwUvn10VP60qD6b5t58yFK7gMyYXPV8d kIfS+aP+lhdX8Bhu1B3pKw/xtzgvDzQv4xUMI1wXxuThonfgnh1JS/haCu/x W4UK8LXeu1gkbAnfNZ8/UAkKICnqoUHxXsKV6RvDGRsUoPOzk8oRuyU8bCzE 7NyQAlhsIcn4HUt4wJf3Ac/5FEHdn8as7r6Il5wsuF/orghrD6+22xsv4KGB vLsbZJVA4m32069qC3hlhvPMWTUlMC6fNKaIL+DRIyfKp/SUIHThSh4DbR6v sZ4L6rNWArEzF0Nycubxd2Nz0bu9lADTPaPPSJ7HkUHFrdd1ShD0zzYhd3YW 57yd4OfmpAyZTJF25N5ZnJQd8SbwijI0SbWwBdXP4sWcL6rDPZRB0N7qzvG0 WZxr/rzGgyBlyKg6ZLv95Cz+YZHvU3uGMtTHGzOcqJnBf+2rDjSbUgapJJdm dsNpvO37m8vWbipgVBaS6ESexkknEqyv3FQBxx/pN4pXpvC/eeqy3t4q8Gbb EO+pgik8UK8vxzdEBUTOnrR/Lz+FF/p25LCnqgCftOXAIZ5J3Fk0XMm6SwWY UykLj0bH8Q7JDHd/Q1WQK7eo6q4ax3U5ekSdjVXBtO1KNPXtOC5MZTysf1AV Aren67SfHMfP3F/waD6qCtsuSNyT+zmG/5YR2fPIRRXW5Li2V38exdfZ6qd1 X6rCVMacAH3UMH5hAWTbR1WBHff1vOI6jBunOH9Zn1QFSivb75/7h/F/icoK AvOqcG1TNjp5fQhntgq9o7KhCvO2x3lNzw/hCdLcnP2cFFhZq+QM3jOIM08f vH5FiwKCXDbXZnkG8UmF4ewZXQrske1psp/6i08w2Bi6IAp4Wa88VXz7F087 f8zD1IwC68nKO+vZ/uL8egoKj+wpQGf5nIWjrx+X75XaaeZFAamzUpc8y/rx WM+s/7R8KLD3dk5N77N+nP9Q3R2yPwUCkmof5h7ox8efvjlXF0yB7csbjLYF fTiZlRU+vqQAP9bAoLizFy+xtw2ZL6SAwuDVJU2HTjy18Uvf5DCx3x+1PvS8 nfjTpxcOR48R62EXU0tDBz6zmv5G+x8FBuJ+C7gYdeBvrM51Oc9SIPYw2pMk 344PXVy+c3mNAmyV7N7sy7/wWrMqHx4mKtByLzJ05/7Cd+++XUNhpsJo/JfQ jMu/cHHurXQzFipUed16bdzTikfUyOhcY6WCj3pPuVfVT5wm8aI5moMKM4nv 6UaiWvBLiYx9+wSo0BPGFFJo0YLPBTmkKwpSof7eGW5/phb8u1eiIrsQFTLs +XaJ3m3Gbdg/O38XpkKlFO1R6tdGvC399F8xMSokbL6PMdJpxFs08nMmCHt3 nsnszmrAL5uHGheJU2F3ZO137qh6/Kyub6OhJBVS6WLYfc/U4cYmzOFK0lTw /2MuLvyrFlcleTf0ED5dSqIWmdXi0p09vU9lqCB4/aLNBKUGF+VaeTQkS4WQ Pu1n/21W4Q3iPFyuClQ4/2kiee56Fb57sVOYSZEK+16+KXoy9BV/VJhKH094 3Yrpd2V9Jd7dGHfrixIVXPE2IWpcBd46zLw5pEKFR7M1C6FcFXh+Ql2ssyoV knZ9bBp7CHjXQQaDPsLvOBDr/rFy/PN0+bNGChV8E5oHVF6V4ZI6B98+VKNC IUPRy5FHpTinEZPPFOHRizGWiTc/4PLDNCdbdSrYqjmV8VoV4/BS1oJLgwrS X+Yj1ujy8YXHeVlXdlPBXrZ9f9FULm6nFtpfRpjMd2ftT3EOni7cvItJkwpT KTt+fr2UhW+v/9sQTfg/t5+GOvsy8Fg/0OwkDFqvMrNE0nBhFYlMYS0qRH1T 8Y9sSsLHL7J8iCS8HrY0yZiRgEe83m9TR7g+16dgjuE1njV1fWmTcLwR5+OO kpd4lJ9pGlWbCtd/JDrB5Wc4G8fts6cJG5/V0E0TDcdTOt4rPiasMhq8SyTx IT4R9mC9gHAKj0PKz50+uLdBcHsH4b73GFNP/iW8X3Nf+Tph3hfnbrddsUFm JMX3IjpU8JL6iRzCbiK6fZnJewi/vFp9rffMA/QrWzr5MOE5i7cVXOuPkfz4 ZOZlwrL8GIvUoUg0dNfygw/hI4HZanovo5FBsf/3MML3F0QcjgzFol2JZX9f E84++9jfVf0NShsUImUQdhvzPlqJJ6L1/BLxPMIMkoVjVsNvkWN+vFEx4bhj E/e62VJR/nC98wfC6uFS3Jc00lF3rMajEsI13+xTF+0z0eKBkswCwqe3wnX9 /d4h2UeU7+8IL2nVNLKnZSPLifOjSYRNS3zzGs7nIsd5YbpowtyH49Z4vPJQ yNwaTxDhP1PFJg5P8tH6wjtxd8LpIT/CEhIKUHB6pdRJwh6yUx3DBYXoz74a sjFh9IVFWuVbEQpw1WSRJ7zjlIybe2cxeil1e4yZcNsq9qF0sgSRX0+XDRPP O/H5iW0kulLEqzt5t4Kwi9ptc1PeMmR6ulAxhrBOQ1R0qNxHlOzoVeVKmP5S Tt8P3U/o4rnzBxHhRobvikKWn1GzeUTJTsKxCcMep8+Uo/BIRtYOol/O6W/D Uzxw1KOO700kvFn6SiGmAZCteYadPOGeqCnecacKtLKh7t9P9Ge5K0bSW6lA 40/baf/rXx/JwbZuqUqUhyK/LRH9fmpN84vKh0p0kcGXL5Gw4a+H730sviKj 5zrJ+wlvPlIKkLhdhUrpft8KJuanx+ne1es7q9H9pJECacLl+k0OX5KqkZi2 iPQnYt58Zm6oOTd8Q6Ebh8N6iXnc/K+sJ02qDhX6FMmsEPPbo8ZWt1JSh8wd dCI8CJeznio6YPEdtXBZck4S8+6D04VOeNajSEqG9g8iHzZlD+yhNDSief9t WS5EfvSQ4qT9nJoQ6WiaRi2RL+Wd/zhalpvQjTtmmZKE0X4z9z0RzUjhX7N5 tTwVtmgTB7o+tqCTBeeb/xB5Nj3yDH+w/QcS1GbXECLc22qgqWzzA73eH/ef NZF/eHaYxL3hH6iZbNWYJ0XkjZPGshhXK2q6pV6JEXl61arb5dvxVpQp2xNk T+Ttaf3AgauprQiCzDtcRYn6/L8bQO8XepuQyh5MJurXeiU7nW9D5vvGZx8R eT9dvEuYNa8NFdwVOnuPn6j/tj6sYK0NlT/Wl3flI+rfE7vLEPEbXeUPfmrI Q9RX+2KT+rEdvVAcGUxjJ+73kmVrjLMLiayocj1hoMLeLzeyntt1IbZ/KywH 6akQMNH1n9GrLnQyr8hj2zaiXw2zc1/KdSPMw3qjbpM4L//aOu03/IOqA/tG hucpoKryqir5Si9aieccs+imwHU7xhvWeb3o7U9VUOmgQKGvm9j6Ui/6l2Jq S99GAdFLCR8VjPpQ1uT9w2FNFHj78Qbv/fo+lOtMcZP/QoEcR4Fqyt9+RNN5 L3oohQLWi4deMW4fQC/OZCh5J1JgLtjvRpf8AMJyb/glvqaAZsGY2EO3AbQ6 7vu85jkFPjJ+8uxZHUDaZHWvwEAKfMt0VHjCOYgU11jNE50ocBE933LSGET1 TkXZLKcosKO19peO3SAKtGkKcibeLyyIvh+MG0Sns4V4Z60o8NOKsUtPbggl LwvMndGnQO9CRui4wTByT7B7/oCbAn6hV1uzzg6jrbtDUqFsFJCQ1hRxDR5G fzOqBfy3U8DxMGRNtw6jOr5j5zRpqtCX11a3cGUEvWrPTizoI+xGz7IVM4oG b0Qbd2eogt/2WmvAR5HvcNuvhCRVkIh/+vL+0Cja9uC4qFWcKjg2CMkzqI0h IWwXXAhVhX4l6n6WmjGU+0b43X1XVRgYPRHIszSONtRERviVVMHfT6qhlTyB dt8pST4ipQpSgqO80UYTaBHrsvQUUgWn/e7Jgk8mkNtE2fbLTMT6lOBKUel/ qPCGyxatXwX+OhXTydtOIsfsySs3I1QggHb3wJjnJGqa62T7FaQC0pFGEZmv J9HdFAELHuJ91rmiXkJlbBLR7LV/KZxXgUHxv0jdbwqJynhk5ekQ7ubw0c+e Rodq5mtK25RhocfksMXPaRQjA4ihThkY++/Kn1qZRtdi9S/IflaGqDn3MSQ5 gx6z73eZTlKGwqXeqDNXZpATtVr8gYsyLG+WjCZvzaDu1lutIstKQCIdPqzC PYtGjb81PxtRAma6qc9F0rMo6e2jwI7fSiBILx1VfWAWGbsttlSVKIEuU7jB aNQsGh8/wsB9Uwm8OS5GKsnPoZcn+9zTBxUhgJN+o0B3DnncLj3i26IIoVzx F/Qt5tByvNNNnnJFeM3Tqm9xYw7dLQ+ucItWhHIBbMTt0xx6T7s527hPEaoF u2yWG+fQEfIlF1dVRWgUuvXJt38OxRhWzZcLKkIv+V1E+PZ5dIlzyOXmPwUg SQjq51vPo2PRQw2M4QrALFmQqnt2Hjk95Mvmvq0AnFKWXJU359EzhXix6tPE 95Z0wPDP2HkUkng5QUhVAfbKz4QvDs6jnBfLY4bV8hBIrRnSubOAuKsyQvMG 5CAJ4xHzD1lA4WWhjvur5QCsT9l9j1tA3WhC+nqGHNCuLVSfLF9At7Jeu3q6 yYFbnkS6P/0iesia9451XhYeV1zp+867iJiac8Q2f8hCekuxIJ/sIroqgfyu 5cvCwKx5cJrZItpR1vak9qos2KnfuVz/ZBH5t2osLf2VAfe9X5P43iyi/ITU 2ChcBsJtObpO5S6isuG3L6JjZaDuRsqh2R+LaKf96gewlAHDghZlfsElVKj9 XkgrRxpkdytOn05aQq0pev2Z5rtgn/FNuYyCJSR3XIY9UWQXOB6B03Nfl1Bv lct4zoQUxHrYNQeMLKE00j7rjSApYC/yz8tQXkarfp67wvIkQamqYWzOYBl9 bGsqCbgjCWa/BKX0rZYRiV2s3Q6TBP/F7MjG68tIw+VxiEudBCxrdrnPFy+j a1w3djyPFwdeU9l3+jXLSOd8pqGcsDio210fDOxYRm9m+c/UR4qByy2mo4Lr y8jOMa963EsU+oo1tAyMVlB66fB9r11k2Kj2cQuyXUF1Clbu7wOEQfh3bWrT 2RVUOPA7h21ACI4snxZwClpBu33dxqrCBaFGO3Ql6PsK6trm0ihYxgfOtW/G THpW0Df9f0aio7xAOl7QyTC7grSfLMhrcfLCHp/OT/78q0j+Q+R4kwU3ZH6V v+9zZhX1NK79Y5ljA1M7/RsGHqvIZKdJm9HgDvg7YnV2PWgVTe3kq235xgwi rJ4mXu9W0eVnTFLlTgzwxKaK5dbyKko7qWex0b+IK/5tp+3eQUPjo2PWl6Zm 8GqPfxPzIjTEq2dnzdw2gm++4Gm8vpeGUq8mWfKQPuOxCnI49SgNXVzKf8yY Wou0P+rmTl+goaPNrVqFJn3oWs+ZSNcnNLQtXHDO/9YsYrt284FyAg1l3RGs KcxbROl0wR4T+TSUl3s8f/z+KjKOenUus4qGLFUpYqHf11G/dK7dpXYacm7X xO7e2EI+xZX75SeI/eQO9O7IJmHCZr91RjZoyCc+SOS7Dh1W3DGukMq5hpIk aj4Y2NBhtlc2hc/tWkO5n7zGDeZJ2NQ6F5u0FuE+2ydm4iTs8VOZjQGzNbRm +ozSXriB5CX2TCUeX0NGqzJlFsdp6Gueea+j2xpiqjNFHw4sIcd9js3i99eQ p/+9Dzpxs2i91b2iJ2oN7fjipTz1exRprsS+PVG6hrg+mL+1/pqNfgRnPyPX r6ETs5QXjQGtuBv5S2Bnzxoazs/cqCgZxlMNxy4cY1hHeDsqe7C1jAsGaisf sVpH2y70x/HfZoZC/kOiPE7ryL0tm/WQNytYp59i/+Gxjnp+y0qLurND8PfA GavYdSS/U7yMROYGGldr4aGhdWRWl/CbFigAf+KvGey7u4Hc/u0vNXksAU/R 7vUvoRso5ZNu14edkoD1LZftjd9A4ymk7J4nkpAk6auzt2IDZetzTUU8lILz yU80jJg2kdplr9oEJ2mYyshUQFGbSNctLjC6Sg7eHHQbLU/eRKozRVN7lOTB ekItzbB4E2XtWX0aFCYP+cql0oYdm+hC5J9ekyMK4JnzTdxAfAup9dmYuTUp AqlokE8vawsdrMDnv0SpQN7R9NayT1tIsCxQT2lUBZyWrkTpNm6hLHm1M5/1 VOGr9jyn7uwWcosO/XaTOG+N/5CCXpFJmA6jGO7MSQVmR477cWdImLEik40f pgYR55Q9YyZJWHHhbmZXFw0Ish7fo7JEwupMthnEhWqAl176OmySMJMjthEv 32mAM5e0/ygHHfZakvUswz8N0PpMfqKtTodZC1W1lF7cDd28rG9/3aLDztYw X7J10ATZr2ONXKRtmKHWBokmpQ2fpNJkQ7jpMf/pLLmr53ThmmVtVTuZHgu7 HvLK3E8XpL0mnOVk6LFjxxQr+eJ04UkL5e1XbXqsyEfHzqVZF075fRDfOkGP cfscf6Guqwd0PbWCHmn0WKeBrOXpHfpgGvNvxyl9Bmz7sll5V7wBNHOoT6ud Z8Rcb7r8MrPBwLu33HU+gglb6rE4W7a4F7h6jzO6/GPBqDTqcHa2CRhW0Gw3 xdiwtjd0ae5yZuBxMMEz2JQdS3qw3T465CDU0WV1nrPkxHIZu64VkC0gtSmo NeocF9bK4ZA4fs8KPIvGHUSfcWNZQYLM6cw2UD/VYr7rMw+mIqgw1HTIFlyF yoS0fvBixw9S8zZvH4ZtJxTdkzf5MI6JWY4L+BH4GxaXJi4ggH3d/LjJOnMU zATC9wsoCmLU1vbnacL/QVIxm8flI0IYl7E7KebUMTDbH3K37rIwJqF24V53 qD1UZhffTbkqjHVrk6WkIu3BkP/vXT8PYUzMMan6wgt70BjS89byEcb+VClx zCfag9iDSe+kCGHM2l8rnqXEHubLrX28Pghjr5wDC7X67SFeS+C+4nYytoRS voZrOoBQ/L77jKxkrH7L27lN1wGeMV6738dBxibfaDCIYA4Q3FpzP1qIjN0E w31pBx3A44aX/zYVMpbI+wv/fNoBDmT/edB5mIyJaRsXjAc7wFe+HQFFx8iY xrCKDTXMAQzvaQWEnyRjN8TXpm4+c4Dd5mEBphfIWP9eI0W6Nw4gNo4F5nuR saeZD94IFDpAjI1r4BNfMpbOFqF/stQBeEtjAi8GkLG9OwM6ksodgOXRXKDY UzJ2apTMo1rrAAHTYkGrkWQsAqvIcW90gE27Q0GtL8hYprqFeelPB7hT7hmU 84qMsa3jo5vtDvD//xMwvw6hQOMeB/g/pvgUJw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[1000], 0}, {-6.907755278982137, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[1000], Log[1000]}, {-107.47293212437035`, 32.65228142304109}}, {{-6.907755278982137, 6.907755278982137}, {-107.47293212437035`, 32.65228142304109}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt2nk01c/7AHD7vu9rllxblAhRzGSLSvabpBLulZJ9S4WytFGJkKVFSEqL SoryiHwQiiRbSLKkLNn333zP+f1z73mdOc8873lmnjn3fc5VcPezpzExMDB8 IR//+56m5MZfuisN76r/ancGUSF/j1yNTrY0OBZfXG0gdg7KYP2eLg25Kh/L KojfwrXYTdek4YkWA3cecfyBM+daI6Uh7eXJRV9iySRq5DpXaeB59oCfgdh4 mSO0WIzEGzjeFgukwoRi7MsDQtKQvCAczU6cY7U2zcInDe9LPWznA6jAnjYT tI9VGtwLj1d0EH/e3B+wPCUFstZKXzOJ3b3KTlg0S8Ebq02fZIjPt5ygdV6W goZzW08K+lOhs71ET/m8FLCeFixe9aOCRu8ae+A5KbhcUNs6Svx5NKmQ86QU XFHx/vaBWIq1ZHwrXQrkm681hRM/1l89mYalQPEuy4lOXyq0ZV254jgjCf1r mwoun6CC6r1vh+9MSMIpm56hEOJTD+Q3/xmVhAe1I7xuxPIlxV9i+iUhYttt ni3Exz61STz/JAn1xzSbO32osMood0+wUBJmZQsPrCemeD151XRIEsbnRG/c PkaFYu8Ep2MuksCy05//AjH28Z5ipUrCzV/Dfv7ELgHrNxlZS8J7nqp+THzt VFr+w22SkMQ0m9DnTYXFq1E3LkhIguzohw4p4qZSmyCTFgmQyG4+G+FFhQNl GoI9jRIg+M05/jDx8FvOJyfrJOBR96YTZsTMVVW/n4IEeMTs+sFLvLVR313u iQSwDacevk0n+/VDzm75sgSkHzZIK6dRIYxrYmOJuQQwWroy9HpQoWRtXZfX DglAURcLgHh22vq8pJEEKMgvb8ohDu592Ht6iwTI7FHq9iT2f+F1zXS9BOAn GXnD7qReh3onPzNIwL1nQd9HjlDhUHHTi9EycRjYZNfVfJgK2fdX3LJficO6 9S1KT4i7szR4bZ6Lg65hv2UC8YHzl2jFheKwTZNP3oLY2dVC7ORNcdDmkmcr PUQFe7Z3YWxh4mB6djIh5SAVzF2KDBW0xWHpoJrLpgNUUNpUGB6iKQ6IamfG QszCcr+kTlUcGh7wLbe7UOF90R3tQDlxYNl+8MtZYsyYol7FIw7cnR+kmvdT YXtBhBRtSAwq18q/0ZypoD27c7EgSww4VrQd6E5UEPpotnUlTQz2yB4J30I8 eXtHqF2yGJR9NPBgIn5qte3fwkUxeJXXcSHbkQqa2Rt/7woTg/XXrHiaHcj5 MxPt/GMnBgpzSSUa9lRYd73/tRa7GKz6/8x6sZfsl0dQdSuTGHRN3a6NJLbf wvIpfFUUzC3SX1sSn2+jDMCMKAjkbfvdZU36Ucqbz25AFAJYDaLW9lCh8t64 e0ClKPyVijHetpsKni+XuYtPiUJyP5t+zE4qRMYnilHDROGq9Y0L5sTp+9Yp LAaKwtvlplR24sYFpGdyTBQW1q8bvmRBBT3jGLcWZ5L/Hz/1ijkVOP7jfPlP VxSiP++XvWBKhYftYod0JkQgOUPTwBxRgX4xZPHkqAgwHHfInjcm/WTYmgqD ItCq3p7/kDglM+mT9XcRMHhkVyBAHHmIZ8fRehGoPrFpf9t2st4BRqXsXBHg 2WohZGtIhfnxPyNs+0UgT3d39cIW0l93dsdbO4qAMuvK4h3iE3aFiik2IhBW 8rB2J3F/sdcBBQsRWDDgV0nRocLHkP6GbToiIETZ1q+iTYVbS9+e+POKgHdG Tr/hJiqYsVeFdFYKQ8BLU39uNbJ/hUHy+m+FASv7+eSrUkFmr9LH5FJhGP7o PIWJZ1Li5K2fCIPCmMXtYBVy3ypafqzIEgb5+kS3NgoVOI0b5fPChMGt+yVf jCLp3+BvH/00haHU9ZjKGWkqGEpcCG1QFQY1X/6jHMT5ZVsV1JSEwUjOSCFZ igpRTBmh/VLC8HLg3WK+JBW0rrkqOHEIwwZ1HoNacSokP/wRavhTCNyl55wm hEl/9I8qsN4UAvu8rzEt3FRYO6t181mKELx9q/fYkThfIUTg0DUh0Ks/bdvG RYVpt9XVkvNCMFbms/iNkwpJvQLdR0OFwKLo0ZdWdirUd+umNjgIQflfNYkX zKQfvkVxpfAJQdXsk4csS07wM7T6LOYSgo/vowqDF53gkhjnwh9WITjZnc87 sOAE7U7Xh8xXBKFp3HUV5p0gpDW3em5UECSjxkODZp3gcXNd5IE6QeiKSdv4 ZtIJ5BuEpxRjBYFdMvRH3ZATeO1WXg6IEoSkK4Hq4sSP67eyVkYIQqOhZI7H oBMY1R0UPxwgCNpuqZKLA07gUnN/W+YhQejZcJxPtt8JbsC2WGEDQcjoKt9i 2O0EXC89RFnGBECw+rF7/ScnsNsSus5hRAC8bJ8mLzU5QfrzCyo5AwJwefxd ywZileIiA9wlAJs67oRebHACsydzB0/XCoCGZbSeQZ0TRD24nD+dIwC+9zsy vN87wXT2c/1f+wQg9jJTK+sLJwiVdOGNdRCAz0F3zyg/d4L5FIafijYCQJV9 r2NR7ATLl62vuFkIgHSMX+W5p07AGjE00LVFAJbar5hPPHICMar09RZBAThy bpk1K88J/GXYOqLS+OGL2WTbxlQnCBZ2iH17hR/e84oxbLrhBOFcdzYtxfHD QH630MYUJzg7bxAfGswPO4zuT6hed4LrrSd0TtjxQ2jkPh/BK07wIuFrogs3 PzjK0fc/inOCheVcE90oPoh29g5mDHYC944bXLdD+eDFqDLuD3SC+pfxLRy+ fED9dLCzMsAJMnyPune78sHfMBRyxs8JDPs2nIsx5IO2azUKg8ec4FRVcWXz DC+0Bl42OH3ECVYuAvb14YWzY4G42NoJ6PRnHO0evDAgIuF6bI8TNJnkfN5x gBcu98rIKOx2Iv0Z4ya6ixda9hXFXLJ0AuMTO6PLVXjBNjG8bo8pqb9tUwXX Tx4o/dQznrjVCRjFu43v7+cBqQRzj3kFJygsPqpOteWB/KL5A+7yTmC/d0aU dScPpHFmxdSvc4KcOL6/7lt44LD/s303pMn+TuPMdfw8EGGW3Ski6gQXmvPm blRzw8tLDmdfszuBQILf09hN3EAbK8y4NOoIpSrLmTrK3JAcUXG8ZMQRjlRd ON8vww199BWVviFHKF68ewhzccO+w/POmgOO4OjdyrM8wAXnrK8dfNztCOkW Bt5BGVxgpPF73LLREeQZmRXdWbkgxLT8w6dHjmB841X+02VOaEuby20vdARX NZ8Na1OcIBwRF9hbQOLtvm7J6ucEvbEznwdzHUEw5/7OtgpO6PnQfKg7yxGY TPec2BXBCWwbn825JTjCQOyNUu1xDjhaTfeo9CbjkruMzg5ywFkTc5ZYL5K/ aLXy03cO8JLptDGjkXxfvT76NHDAHTmnnrdujvCVYtiT/4ADMuYvZKTsc4Sa mh5maU8OMHu/P7PJzBHuc6jaMHewQ4nsrW+eso7A5ho+l/qJHURn0i/flXIE zye1t9Vr2OHWvaYNXeIkH9V7wu45OwzvHFYyF3KEjHuFSXcS2SE+PyRvis0R rhhrthqZsIPHt6StpeMOEBqsvT/8IRscfiWsUf/OAVr/O8fIk8MGs6o48laZ A+hIf3lwO50NFDksXfxKHWCiMmixJo4NhKsP32MrdoBj/C8zRd3YoCPmPwXu PAc4VKjfUyzCBsmdFXzelxzAvG+7x98zrNDwNCjd3d4BOCQ3qxYFs8KOlniB L3sdoN6O8tfnOCsYGiU2o90OsLeKN+yPMyu8ZcxQ5DNzAOf8nkujOqzArzdS dEaX5POJLh4ZYQGdRYW2PHEHuDZfxTjoxAKZJ5jE2DrsoUtg950eTWZYqblq dczGHoRMvFaNKMygyMtaTdltD7uCYlyzZZihg/3r8e8W9vDma5mEKzczbIuU 3b7D2B4yMjSSOoaZIJ528FGnhj24KPGda73HBLJ+CzscOO2hU7/Zo16SCQxe KozaVNhBx6F9KiWsjNC94/rsRjk7sLfhf+CyzAC7i7/LhEvaQT36T33tHwNs lpc4Xi5sB2/k9Tda9jFA+27+SD0OO8jqF9PtfMMAhayVYRMTtnCI3may6scA ePdI8alKW6jpKixPeLFW8ejlk8HJQ7bQtZCvXnRwpSL832CZlbgNtPpnZrxZ m6+gxxncac3fDUvn/dr3m01XuNYlfj1+bSco5vh85jMer7i//Sj1xBlTGHvw T5w5ebAi8r/IO6XdCPgqosKOnxis8AKZ36kVCDa18nz7snOwQsez1Ck+B4H/ qnJq7vKvCkZhxen0owim7A+IWNB/VexKTBi4OmMM80tVAhcNBipOUA1xu5Ax MO69wcnf96OC48qdpsMHtoPagN+srktnhdz+kBvPVQxAoqUuklmks+J4+C9d FkEDYIP17M2NHRVwxZTZa3Er9Gd+E/fZ0VHhgihbPRq3QoYDMshRba9Yt0ns gl7wVuCp4jvNN/e14n1wg8yeD/owcbeIcSi5ucJQZX2geYge9Fxlv/TCurli NO/u8A83PWg4c0ToHHtzxfJU2Ldre/TgwX7R9bKnPldU83yRVVbSgyrFxQv5 1U0VjpHvTTe26kI+402+qCP1FR4hn01e6OvCiYo2Sa3MygrXEvlHl3m2wIXJ 2ukEwcqKfOcHNz4t6kDO+rJPI+eh4l7wRw7KiA484kfcO0feVYy/0opiqdGB qDuf+zWz3lQY1Y3Z3IjWAaX3U0lLjMUVXXvt6Evz2tBXhNl7ir0rDv+5m/12 djOIpNHC247bIa+fy0EbhjZDhOIX5HI1BCUwcTgUftsM/6zvVQouX0YJ9WYS XaWb4bHH5XMntG+jXZfOG3Cc3gwWr6KeNdKfomr58dQE1s2w+jpL7WYjoN5n h3mlKVrQkzwm8tu9Eu0w5gk7LaYF705ghm3zlUhpIE97kl0LIhUG2roVq5BY PzevWtsmWL2wIVY+/APisVP+FeNJvO9Nz33FeqTiyMxCu7AR1hZHrbrKmtEb A8/umD8aMD6UUhHD1oKOmksasbRqQG+rka6GXQtqcPbreFCmARWPr8qfGWxB famP73he1oAod525dYKtSE4mOyRNQwPW6iJy3elt6IGUncloyAZYS+dcGxHo Qudml7rllNTB5H3gwxvULtSwvmlfoqA6xI527duR1YWm5PpypdbUgMv48dN0 lW601BT3PKVTDcR+2rvvNP6Orh/9nMOWrAYbNbM+5B7vRUk6Zu/7OdUggMoa aPusFw3BWKn1giq8iPJdtzzbi/bHvs5sH1YFWe87ZWo7+tCQ11v9vbWqcK8s UORsQx8Kd6xzfX1BFZ64idds+vkD/XYd2HGDXxVsZ3ZnsbL1o1UpqyFGRlX4 dzE6sEu1H7kaXR6/8k8FdJ+PrDvv249SQj87cbWpQBlreVjPQj86XXCy+fwt Ffiv0E0tUWAA3XJbYi7UVYGj6Maau84A4heJ11+vpgJcrXVft1IH0E7LeXgr owLWK9rnBjIHUOFNdZV9LCrwxYa1a5vKL+T8veGu7Fdl6J1+kPDbaBD13Lr/ ku+MMkQn+LU+9BhEYyKKUB+gDPJKujInLg6iHG6Njid0ZXBzgIfjrYNoTrmi Z8ZWGfqetdVPHx9C9F4W8VAVEm+VJVSSNITajZ/5RMmS+B9HXMJeDSGeYnHT 58IkXuDvyALTMDJaXjPPZCDxvsycazeH0Vj8+5rAbgpEs9XZQsUwuufwyLDt CwXkb11JP/trGB2QL2Ggf6SAW6OkKsvmEdT4YHsCdxkFfmzQ2slZO4KorKtW oVkUOFc1c6X+7whafZgzanqDAooHytouC/9Gw+v/rMdXKOB+yYLOd/g3UqXw 5nyIpkD/sGuc8OxvFPz9pjPfURIfrdjYKj2KTl7PV3JxJ/ESwyKpO0aRTYSW 8zdXEr8zKFcicRRFPAu44mVPAaberX86ikeRxeVTnqesKZATuqqT2T6K3IOb LN9bkvnzLlbJKv1BfjkWzKOIzG9kw91r9Qdt3llY3biNzP9VxOGO3x80t7B2 7Jc+Bd77dGYcufEH7UvmC9beQvKx3OlXLPuD6iO5jrzUIvmyaOoDfX/QrezH Jb6aJJ/OhsA8tr9ogo26ckidAj/dSxhV7f+i4tnupEElCsQunrIaCfuLqiwu MEcpUkDp+o6kwuy/yDOV47GtPAWq1dg7jlf9RblCZzRd11HAs7JBXnPkL0pt d1DMkaEAy/7rR8f4xtCZtmOb10tTIHdi39MnW8aQVe9mlj5JCphdkJ33dxlD 11YaLTskKDAg9xNpR4+hW8LGxfzEsa8Kzk/ljSGZb9HzMeIkv43vpxcfx5CX fnm7HnH1oI546OQYOmpMF1Uj9oxcOKQvPo7yTvuFHiBmEavIn98+jkSF/Oqa iHOLYsdeu48jTvrnHzFkfjPzXXqnLoyjs3eZbp4izzPQzR+5/fE48mQobCqR osB0j7mD9Zdx5B1TU7eRrIf1xynVQ/Pj6Kf0l6sjshS4PNke+YpvAj1M5GAf lqNA8r+gEaQwgb6UbZDZQOqVNcXnWKszgbiVq98/J/XMnX7wztZiAm1KdJw5 p0KBRzNmah3OE+h6+42XN0n9X8z2Jh85PoFGqS94Fsj+lM9FrI6cmUCUsKvc OZsp8GFe1Dvw2gRiFl+uv6FLgaaFp18WcyYQ13lOn68GFGhb3G0c83ICvfe0 knA3pkDP0mABd+0EivGVYjIypcDg8lnhlM4JlBoy6+lFztfc6qvh3LUJpNKl +vyJAwUYGBwcNIUmUd25QfPP+ynAwTj29qXSJHJm0r5r7kYBCWal5BqrSaRZ 1Ba8xZf0F0vFyl7XSbS6sH/0aQgF1Fhdjn7znUT+MjdULpyhgCH7NaPh5EkU 5MsSbE36x4RjQ4F//iTiuHBp0DiNArs4a4QWSieR28ixgaQ7FDjAvTzE2TOJ Pl941O/xggKn+Y9e36D6D511S5sf6yPnQYB55bnhPxTMPBS8/i8FEgRveW23 /ofOs3gM1S1QIFu4dbt14D/EGqJjHCqiDPkifve/xv5D6vf8151VVIbHolxC h9L+ISn9o2Psm5XhnTge8i3/h8KjTu5NsVGGGokuu7mmf+g9W1bK7cPK0CQZ Wh714x8SMS7Yqu1P7jvpR0nX2KbQVolfGovXlYFBXmJ7se0UqrXrdwzqVQYO hef5hh5TaI8y9hSfVgYBxb2CVSFTiOmZ/4bDnCqgoBQ7+CVjCvmwbX7+m9y/ 6hQ5O9eiKZS8d9JM31oFtJXflA1UTKGfyz+2GNBUwER14trMwBQ62vmq1j9N BXapXV46MzeFnlxVefX0mQo4qCvT2bim0evP3dlvGlTAU8N1m/imafRjXcYu U1ZViNOq/bX15DSKUHV80hatCjlYeN25S9MoOShb9tNtVQDbQ9SPmdMor6r2 cW6FKiz6T9ccfDeNLMuslRiZ1MD3mXzBOeYZdK1PKdzsuhpcrjze91FkBul6 UYNHStWgoLlEQlR5BvUITare71OD/sk9F+9bzqB3qJInSUcdqNonjzUkzqCX KhYDW4bVIcikOkf09gyyjqXaP5fYANfs+bsOPZ1Bpdcilm/t2gD1gXm7J1tm EENROv1f8QYYOjcRYzgwg5TMy+dCRjYAS/K28piZGcTVOXLqloIGGD9v1hCT mEXziVb869I04ECVDO2w2iyajrTgSiO/D8K/eGUXGM4iya6To/PCmlA8tcK7 7eAsYt88l/ghXROUt6iPH86ZRZmJBas/yzeCqVmIyoPns8hyx2zxGvcmIK9Q h/9Vz6IJOCQJBzdBRjD1c+zQLLK4EGneyqIFr2LvcjTNzyIXm5RVDm0taE35 g8W55tD35kuZzW5awPfy3LMHGnMoWJm18HiVFmz40Djyz2gOhaaaf6TPaYHl VwnF7TZzyNTuo7uV5mY4N/P4elPAHNr99TtWvb0Z5nS7gqZK5lDpzZovXre0 QcRC+dH22jnEMnM67emANmhTAwbiOubQ++/vmjs1dcAnlN1JYnkOSdYmT0TV 6cDFePvEI7zzyFv3kd1+mS2Qn5r9oXDdPAoXVf3QHLgF+kp09Ix2zCP1L/7f L2zQJe81kb7x9vNIsi6Jz/KKLkh9q8v/5DGPHvJOeRTM6ILj3GFx9/h5ZDfT 0JD4RQ8C2B/aPEybRxpK1rYfdunDFfHZ89MF82hvxdoBllp9qNVPmI//OI8y 5PoTDrZtBc+62yPmPfNoYf30rHKIATAceN7JMjmPnt5nb/SRNYSsPzUfq5gX 0Ou0e/zLnwzBILKz/JzYAlKv4Sh7lbgN2vjHinaoLSCff9kRmfu2Q+BdxtsM 2xdQQNCtZ+82GkFhterZyCMLiPd8lBdwIrCgbg80Cl5ANqlTLts5MPwcsvFY jl9AY5RkmtgNDNEnPRzLbi4gx6iRi64aO0CGO8w84tECEoWucvFPO6A065Ke QcUCSpa5YeQbaQKOG2+pzDcvIIf2rOW8baaQaPeBM3RuAf3tj6iO+GUG6j/b F7dwLSIV35OzNl/NoSb4z+iUzCIK2H84LbjDAtzZGL4Xb1pErQEzD1umdsJq mnBTgMkiul5cr0VXtoIMNZUKLadFxH3VxEwzaBfolxk+HfdaRHbmvfoC3bvB v+fI9ROJi+gO0ym+8xw2wOMfEqNxZxEh2UUDLi9bKGC8GDxavIgGOJTOZO63 gx9KT6ne7YvoQHzRVN0xB7A/vipFW7+Efn0Sr85e3Qdjy4I8SnpL6MGXw7XW Kvvh8hXKSr/lEmo8dXqpycoFqp/t6XXzXUJ8gUupmX6u4Gbq9lnu7BL6Xn2+ e7fvQVhuDarsSSbxWtmXHh08BLrzGfdcXy+hz7GOhkFsbtBy8XGKdMMSqnmz +/wNuhv4Sr+P6+xZQpqh+666VLgBV9HX0JuTS4jXmXeztuARyDce8XJmWUbT 8n1G6a5HwOTzsrO4+DJyKWRL4Mk5Ar1HBHa1qS2jZijx5+0/AhJx+hqONsuo L0Eu77qDO7wQ2y0r7L6Masr3xf+LcwfbgkN8LcHL6N6s8q2UF+7wxyBw7dr5 ZfTxDD9fc687XPwYN2GTsYwKE6buzrF7gPLBmz/4ipaR5Zb2fbaaHvB+7FFL Y8UyuvTt7rK0rQcsCra+2P1rGYn3TCqOX/GA1HtDeVzzy4j5NmV2/0MP0NFd Sq3jWkESCRExax88wMdZ8eROrRVUaMDy48qsB3D81j3GZrpC+jXw/mseT8g9 ZXXgg9MK4g47+v2ugid8v+VvZHpqBQ28mkjhsfSEK2jL8vuEFeRc49ee4uwJ uG/ujcmtFbSqcKxr71FPyFGI2mpSuYL8zL8/vhLnCQ7vTeYqW1bQVU/jWY1k T2DxYCvZMbCCatmPKm684wn03ESdHeyr6Cdu/x1V6gni5nb/QGIVicizsPVX eULtL5FnWH0V1SWuV6lv8gR1layN2HoVDUxsybD86Une7wvVUPIqSqfrfLjP ToPbu3yH3+WSeEbvtiF+GtiObr5vXLKKRrnoeZ3iNCjWeK1k3LGKonevbBhW poFH4+mfb3+vouQMGQmujTQQ8cU5RsurKE/TTPfvFhqEPflPzkhuDTHt1GFn NqGBqu3lnnKtNZQSLWG5zZIGnRN7s7ebrKEvFyw60F4abNduk9pOW0NmSc7m r/bTgOHlgOi2h2to1aXU86YvDZ45FbS+KV9D3utjj/gF0cB99niyYdMaaqrh MFYIp0G1/pSA4eQaghaZ8HVnaWD2nSE+S5oBl9V9/XcviQZZRe40VyUGHCzf lhh5gwYzZ6rNZDQZsMnwrjXjmzTIX3eBOcuYAcuv7zALuUMDDjf+s5lHGLDG lNj0pyIauGkFuB04xoA/CPMb/ntKg9cMX5B0EANOqlRdZXhBg2N3U1czYhnw a4pW/uBrGjT0y57OuM+APw+cO/qzmgZKz6MOuDxlwI+W3jZE/EeDMzE/DKVe M2Cvxo9WzPU02KiUt3CznnhQ2WekiQZJNI2wm38ZMJ+H2QGxdhrE2/420Jxl wHvat37X76RBxLaCZVhlwGGevtp7u2ngKah0bpifEa/clcl26aOB3lvpRH1t Rrxs3l2+OESDDQUdNh8NGTHTLh+DjyM0kE9OEzpsyohTlVsar4/SgNNbOD3e kREfXIjZzDFOg24R7ntfQxmxTuYryeszNPi8VkvzjmLEWuvNMxTmaPDhd7zq ynlG7PMQBh/M0+AxMD1WusmIgz+EZeUt0eCsz2JpUBkj3tHTor+XkQ7K1SNN ggxM2M9UuyuOmw7ST+4n5XEwYS8ZcdaXPHQQyKA5Gggy4TMBPbt7eemw4Pej w02RCa+46dyhCNChQbpj4IkZEzb1iLU8LUKHgKDaReuLTNhKZf0xugwd6Ifi 3/5IYsIptMfMDrJ0cLEyiw7JYMLtfn1q29fRwUwOWLMfMuHw4z88WOTpIPbx lcCfRiYcHbP/mO96OpQr3le+JMSMk4oELUrU6OC/t+5DuzQzLuw5qxSjTgel iFFPFQozLgqa5bXeQIfE5k33qvWZ8QZhMG7XoMOh6FK5NVdm/CqH8qhxEx0Y e+okgu8z4x7DbbpYlw4lnH9evX/KjJtMf6sMEB/T5dsn+IYZhz80mYzTo0NL gv2Nxw3M2FbusVaVPh1yt3UJjkwy401mJwMphnSwuPmH69B2FpycXtp4zZgO i9V8hY/MWXDLifLTYogOjye0rJb2suAa+eaEDGJxy5Dz6UdYcNp9jz/ZmA7D syvMX+JZ8EVtI/p1EzpcduRf2dnMgisSp0r1LeiAozdnpXay4F/RPqfziacf Omz79ZMFMxfNMorspIMrc/rJc7Ms+GWqg9co8cZi+dlyaVZsQ9dQTLCiw2d+ 7fHNdFb8h+21yc09dOA31Zjp82XF3daL0hPEe0OVl66GsWLR3nkZC2s6fOyW Yh+7wIo1C8RyxolrHjDLFT5kxTc+7OY0sKFDmenXvYqTrHjl4oP8+3ZkvaGf HJsXWHGFwx+Lf8RbC+tcopnY8MIfRoPt9qS+Au/oPcJs+NGuh9JNxE+/50dm 6LHhNXduid8OdMgPC38sdJoN2xv7lrJQ6fCrMPBFZSwb3ubeGGBOrNTj88Y/ kRhJZMcR3zU7UtN0iw0Hfzpiy7KPDlmCu3ouVbLhEsuvzkvESQ+l+ZjZ2XFG ibtj8346nO59d2IqiR07pjZ8Vz5IhwgHWduDmez4DsVlxJU4/L9T2v/lsuNl bplz14lDnmydy3jFjpuvFbotE/tGFUebfGfHnb9qZ+sP0eGIXH5ykioHHthg m+3oRvb/cOLrTRUcuD08OUPBg5znL6OZN2s5sK7slpTdxKY7d0Uyt3BgT4ev RiHEeBO76bcBDtziFp77H7HBWnRDJBcnlvmyue2oJx00bgf3Njpx4lr/wpPZ NDoI9h5g9fnDiQcpTI9aveiQ4XJ9r94MJ3apleibIlZsq01jWOXEd4eyfwgd pcOWRl31G/xcOEW8fK8tMbWM3+adNhfeyBj+vZY4K60qXeAkF97+crP6M286 uf83aLxk5cbfizo1jhynw7OPR0Ki+Lix35YrrRHEhjvT31mJc+NTnE+dUoh3 G7Pa9ahyY06ViF81xL4avSHse7ixwFi6qboPHZ5zJFfsv86NR8K/Gv4mNq5c tF9dx4PbXltM2/rSwWNfYlSWCg/2X6gcphFf+Cv3yFCLBzuYIoggbpE0Zw3b wYOlZ4Qlc4lpgVdfjXvwYN2a1rAZ4oT1SjI/Cnhw+JmLosl+dOiIs/5Vpc2L U6Q1Jcr86bAq3Sfovo0Xvxu6WN9ArFgcaMxgxouPCOfTeoh9etLStjvxYmpv KZUxgA4M+v1WL8N48a6VCFULYuXh0Mf55bw4sf134Ufi4F13wi5a8OH6PWXr /gukg7NCWnS/DR92Bavgb8RG84kXt+3nwweULj4fImbLP5X59zgfdvN7Ns4e RId0xn0Vdkl82F/0hftO4vJSXnapbj786Vqz/XtiFpVTqYUB/Lg6VNziQTC5 D1YCbjOf4seDAp0ir4gbW48WuMby4+kNfs3VxKnnqG/40vhx3roYkT5i1Z7N PYHl/Fj/rOcH0RDST7umr2czC2DT8oGRM8T1jA87aXsFcA8tYXJHKB2YAq5f f28vgM8sTv7aQ2zQd3KX3D4BfH7EpHEfccE7yzfthwXwb8bx4BPE8acGb+4O EMB1293V04l3zCjs35wigHfs7d0+Slw6nP5tuUMAmwlFBF0Io8PEvuir+3sE MLso02ASscp/XjtL+gXwE+tI60zi1Dy9V36jJF9w4lIRcbB7a2r/sgAe7E/7 2kK8qZufWisniL0ZMhOlwsl6PsW3JtME8XmPd8dyiI0O31m0PiaINfo/mz0k bh17Lc/hJ4gTnnQJvyBm5vvrczpcEHcliyV9IHbb48BKuyyIf155zzlMLFUn p6f3TBDv9XrIsOEkHa68L01rXxbEAt4VtAfEFPuWt9cZhfDqFHXxKXH5j9Gf e9iEcJ9jdlwp8SiDnFYlvxB2a/eK/o/YEsXVPlAUwoJBlhy/iJnK7RYiLIUw B/Pt4+si6BD28reLbIoQ7pLS+XyJ2NW+OLAyXQgXnf2hnURsMn7yEi2bjN8f T0wj5lHjfFOUL4TjXtpp5hLnZKlIGr8Wwt7u+kJviRtiPL8d6hHCKq1PT/8l VrTvcbijKozZjk8IWZ2iA/t43nEzTWFcdMw0eS/xn8snYoY3C2MuH0FeR+JX H5aLtbYJ4/3Fxn8PEe8xkBaqtBbGvSlv3YKJw+SdP/8IFMYpu9dL3yJuGGve s/6tMFZllBf6Sxx6lTU9rFIYd+iaRE0SK2gZ/Pz4QRj/aI4fmvnfeMCdk8FN wljOOfHBKrH8tG/+h15hXFyrOs1/muz3AjfDUSYRXJm+p2AzsQyLxfNHO0Vw bNzVpwHENbknVxn2iOBQCb2EEOIA8yIrJ1sRLHzqnsfJ/43Hi/StOItgltxf rGeJ/Tl/8tgcE8F8c5ckrhFX80XTJxNEcF6ve0QR8QnJN5J6LSL4t3iozS/i 8E65L0NtIjiuTHNmmPhcZlzCzS4R/F9NSuof4lRZu7XlAeIfcQ1TxKAwPFA1 J4Lp1FhWpjN0EFIXe2onK4rX7T/0VJa41DDQ4sRRURwyfovbnvj90re1dSdE ce6bHi0n4oZyo9efA0Qxl8dRe2fiH8acGltOiWI2vuOXDhFzmd4RXEoUxWvD BU3HiA/ubuq+8FwUZ1Q3PjxHzOSqHpS7KoqpA31fnxC3yC8fZmMWw7qNFw8V E9/91bjnKLsYfhrgPfCCGPsFKGsIiOFHezuGXhNHnivteK4ghhm3NTdWES8W WOAqMzGsHflB4hvxvxl33v5LYrhJZEPF0v+e/82WRdOrYnjrI+/pFeKkKLah vGQxLJu8TYUhkg5anIXgnSWGNbly41iIfWUmgyaLxDA/fwuFl/i3SVQnQ7MY DtX+MyNL/PNq5n05cXG8/WjToBExg7t0/HFpccz2/L86RLxuS6bnKzlxbJL2 unAHsUt7hoKNqjgu/HeVbk78WT4jM9JAHDt3m9bsIS5/ln71+wFxXDd4X+UA ceqXG2GZd8Txieb+6FDiF3mi1KFccayox6wSTtwcdmOLzgNxLL128ONJYh6Z G5P1z8h8HvV8Z4jPeaYcX3wvjuPin0fHEPvNXD+8/5c4HmDyFrpGbCl+bae4 ugR+zs62eJ+4htMkBTZK4M4wi0sPiE2Xp/q8dSRwy90XEg+JjX/siyjfLoFr 8xS1HhPrPJQrOmIjgUuCoq1e/G+96InQo2AJfH27sCoQz9CbvuMKCSxmkZ7T Rhy4P1r9d5UEnsVnl78RT+zWDkuulcBpod8cO/5XX61UgcFmCbxnpIWhm7hv 8aDp5QEJzNS21eIHccOVvwVfOSUx43q7C6PEOSU8wcccJTGfQP3MKvHAI/Xp KmdJnPirkYchitzP9yyDZQ9KYnpujiIj8aOrscGfaZL4Gkv1LmbiV0eXg/XC JHExD1ciO3GD1J8QpgxJ/PR2eSc/8Uzkx7CMXkncwY/vyRFvDRmZm/opiVVb P6TKE0ccZw+3HpbENAXTiwrEDM6m4QyTkli9VfX4emKuzWXhdCYpPFBdoahC vO5n4UltihQe1RR030hsufPSqfpjUthxzxPV7cRVj0tO5flJYYfKX6JGxMZi P09FB0thz+plRmNinV/bTutFSmHRweY29L/5Yv6ezkmSwo8cjYNMiafe2UZG lErhd/6W4buIb+mJn1Vnk8Y/9wmX7yOWvGV6lpVbGpvp9Z13Jk5h9T/bxy+N hdRL7PcTX2ytPZsqKY2tVs/+ciEODow4x6QpjRcqXq8dJLZ6/D2m00EaK+0p YPckrhblin3pLI3HGq5W/8/GZ/Rirx2UxnJB16NpxFv2XI218JLG1rF/Z+j/ e97fOK44Qhr7gESbN/FNuxNxiVHS+ODpucvHiEVe34w7GiuNZwcW8HFizgv/ 4tZdkca7h04U+BDHjq+LX7gujQOTf7icIF6l7o5vTZPGMoJneHyJT74Li3+S JY0P0He8/Z/////RmC190wk/4v8DFCbsrQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[1000], 0}, {-6.907755278982137, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[1000], Log[1000]}, {-179.98235186858818`, 0.}}, {{-6.907755278982137, 6.907755278982137}, {-179.98235186858818`, 0.}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.5020885068623705`*^9, 3.5020885490647845`*^9}, { 3.5020886000647016`*^9, 3.502088611786372*^9}, {3.5020888639637957`*^9, 3.50208886945811*^9}, 3.5023557057203856`*^9, 3.5023583316765814`*^9, 3.5023583755710917`*^9, 3.5023594431251526`*^9}] }, Open ]], Cell["\:0421\:0430\:043c\:043e\:043b\:0435\:0442 c \:0434\:0435\:043c\:043f\ \:0444\:0435\:0440\:043e\:043c", "Text", CellChangeTimes->{{3.5020882922310944`*^9, 3.502088300392561*^9}, { 3.5020886351257067`*^9, 3.5020886400609894`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"\[Omega]z", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1", "+", FractionBox[ RowBox[{"c3", " ", "\[Mu]", " ", "Tb", " ", "s"}], RowBox[{ RowBox[{"Tb", " ", "s"}], "+", "1"}]]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.502086292714729*^9, 3.5020863559183435`*^9}, { 3.5020863960746403`*^9, 3.5020864160587835`*^9}, 3.502088337500684*^9, { 3.502088706247775*^9, 3.502088713481189*^9}, {3.5020887650171366`*^9, 3.5020887994731073`*^9}, {3.5020890319254026`*^9, 3.502089046876258*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"0.233`", "\[InvisibleSpace]", "+", "s", "+", FractionBox[ RowBox[{"34.2254750325182`", " ", "s"}], RowBox[{"1", "+", RowBox[{"3.3333333333333335`", " ", "s"}]}]]}]}, { RowBox[{"-", "1"}]}, { RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020864083853445`*^9, 3.502086416956835*^9}, 3.502088339640806*^9, 3.5020887156523128`*^9, {3.5020887686993465`*^9, 3.5020887998931313`*^9}, 3.5020890485983562`*^9, 3.5023557058003893`*^9, 3.5023583317385845`*^9, 3.502358375667097*^9, 3.5023594432051573`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m1", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Theta]"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020872461072598`*^9, 3.5020872800412006`*^9}, { 3.5020873135241156`*^9, 3.502087319207441*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0.233`", "\[InvisibleSpace]", "+", "s", "+", FractionBox[ RowBox[{"34.2254750325182`", " ", "s"}], RowBox[{"1", "+", RowBox[{"3.3333333333333335`", " ", "s"}]}]]}], RowBox[{"29.5`", "\[InvisibleSpace]", "+", RowBox[{"0.075`", " ", "s"}]}], "0"}, { RowBox[{"-", "1"}], RowBox[{"0.3`", "\[InvisibleSpace]", "+", "s"}], "0"}, { RowBox[{"-", "1"}], "0", "s"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.5020872724027634`*^9, 3.502087280702238*^9}, 3.5020873204825134`*^9, 3.502088395226986*^9, 3.5020887503732986`*^9, 3.502088801070198*^9, 3.5020890551047287`*^9, 3.5023557058303914`*^9, 3.502358331775587*^9, 3.5023583757060995`*^9, 3.502359443235159*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m2", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[Omega]z", ",", "\[Alpha]", ",", "\[Delta]v"}], "}"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5020873377695026`*^9, 3.502087345456942*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0.233`", "\[InvisibleSpace]", "+", "s", "+", FractionBox[ RowBox[{"34.2254750325182`", " ", "s"}], RowBox[{"1", "+", RowBox[{"3.3333333333333335`", " ", "s"}]}]]}], RowBox[{"29.5`", "\[InvisibleSpace]", "+", RowBox[{"0.075`", " ", "s"}]}], "4.23`"}, { RowBox[{"-", "1"}], RowBox[{"0.3`", "\[InvisibleSpace]", "+", "s"}], "0"}, { RowBox[{"-", "1"}], "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.50208734629399*^9, 3.502088397834135*^9, 3.502088752352412*^9, 3.5020888019992514`*^9, 3.502089056572812*^9, 3.5023557058603935`*^9, 3.502358331811589*^9, 3.5023583757431016`*^9, 3.5023594432661605`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"W", "=", RowBox[{"Simplify", "[", FractionBox[ RowBox[{"Det", "[", "m2", "]"}], RowBox[{"Det", "[", "m1", "]"}]], "]"}]}]], "Input", CellChangeTimes->{{3.502087352433341*^9, 3.502087360735816*^9}, { 3.502087393166671*^9, 3.502087413468832*^9}, {3.5020890729387484`*^9, 3.5020890763319426`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.38070000000000004`", "\[InvisibleSpace]", "+", RowBox[{"2.5380000000000003`", " ", "s"}], "+", RowBox[{"4.23`", " ", SuperscriptBox["s", "2"]}]}], RowBox[{ RowBox[{"8.870969999999996`", " ", "s"}], "+", RowBox[{"32.83259275292662`", " ", SuperscriptBox["s", "2"]}], "+", RowBox[{"11.175642509755455`", " ", SuperscriptBox["s", "3"]}], "+", SuperscriptBox["s", "4"]}]]], "Output", CellChangeTimes->{{3.5020873971628995`*^9, 3.502087414114869*^9}, 3.50208840089631*^9, 3.502088756288637*^9, 3.50208880302331*^9, { 3.502089057866886*^9, 3.5020890797931404`*^9}, 3.5023557059213963`*^9, 3.5023583318525915`*^9, 3.5023583757771034`*^9, 3.502359443292162*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Step", "[", RowBox[{"W", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.502088411829935*^9, 3.50208842012941*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVjnk4FPgDh0eqXzkKtZScjSjJdmy7ssvnW1OrhBXZSiokI6RNSNImRCQ3 ySaRI/ddrgbjvnNP7mlyhHIOuX+77/O8z/vvK2t6U+/aGgqFEvyv/zXib9P1 B8yeqFP+o05FraxFRuuczHVQivdxU17PqK9WMNxkZO6C0i/WEGu5FZsC36bz sVxBqTuo2psrj4jip9LrZLxAEZmKObh4CErjZr6rdD9Qzidc2MFRR8+mlytL HYGgLK9K0im/Qy5u488LiyGgSMlE5LzShrWa/Y056edwafN/GS2nj6zW/pgZ 2gtQvt229v1+DgtWWt2T9EhQeo5eZWhcwiuebq+5E1GgcPTN5jxMcLw+YNds RzTIQGbqvddmGA7TKJm5HgPKVQ/ja3N0+JgtG00vxoLo3R/Ld7FCy6JF8IR0 Aop5heJ4Qm/BoVJq/3hGIowbQgRkY29DPKi19istGa/K7ogcq7WHqSLhHaWn /fsT95foBSc4JvPnTXVkYmLbZj2hg67QDBxcP/UqC7oXYhMkvd0g4VhydvJ6 NoxXSrRdRtxRTLszMb6YA3JEwK+f6Yn/dX1S+CqdBxWu/sH6qqdgFb+3HxvO A+VmbO4hQz8kxoWVjmbkw5iPYpHu6A8dW50rI7RCaP1hOTcnFojQjfmhQ/Qi bOX39fv1dghEXlStmexgQpdeKdvz8AWiaiJvjUpXg2VBD7+UEIuZsBzFPp9q mPPt33lobxx+p9dymuerMfzhE3UxOQ5jvHMG+S01EM2M1iLp8VBR01H18qxD ZvIlw+LsBHxIW1qjMN4IFkdhn09aCh7UKGkeuNKC+F8ks36KycSbjHfySSEt SJKNum/Vm4nmsGO8u+pa4Dxjd1x7Wxbk6OcLtx1pxYmbP88KPslCDa+7MmVL G+zk/QKtrbMhqtYl0ljRjtrUN4nCUm+RmubVZa3ciVZlwbQx1TyMiIz4aJp0 gqn0edHdPA8KDprqu4M7sWl0B09dQB5e/cYfxZnvxIgPnzh9KA+B1T7mhuVd CLeSf8XyzYcDx29Sw6gHNtF/tow1FCDz94noXX490BXPyg7kFmA8QfcsL7MH jFQNk7EdhbD4S/gdQ6EXPk4rhYX0QhguBzofnu6FnKD2Hz2LhYjkr3UTPtGP 9ZImGQ9FGVBXu2fkcrkfxl1tL8NUGOi22Xt4/E4/DJf+DLA0ZGBb85PBusR+ OHBPOR+NYCAgTOvUYyE2XDfz6FZLF8FtV8Om1S42Hki9GDgvUAw6mp6P2XIQ dSZdqfBbMSjRs/ldTziwy+Hnz1osRthaie6aGA5OOjV6+W8oQVW1uVRCOwdJ aZPnKDtLsPvsUvQ11c/I1U/PydMvwbCFQnIvzwBozyNfVGSWwDLwPuOD/yC8 zUdmm42ZWMON7itKGISo39/5AlZMhJ+roqQxB/E9RH3TT/ZM1EhsoT2dGYTN 2Pt9Wl5M7I1/U3nq/BC8B64lx6czMVbQ8oEpPYw7PJbWh5eYsBnYw8lO/YLa 9Y1mg56l6L/8cUNJ9RdE34yO6PUvhT7rsXL95y+4sfw5vvJ5KVRqh+4OiI+A 5XlpyjqpFLwZsUKiniPo+DTru7GhFGHOsup3rozi+neB+kyhMpRs2f78iNBX SFYPfRv1KQOfrLtCn8oEQmIoOmUW5aj6LeDHv09MIGuEFp9rUw6P8y9/kdSb wN0Jy4vxduVY45+rcdFqAk1yo1J2LuVYWBmjd0RMIPHUD0L1z8ox2m3wpnHN JNSc9FuelJejLkxhT3HdJBJFdKjJkhXwFapVjDKehteZXysul1bAtOtsEW/d LPJpvHLaglW4Ve5uelNhAWIiJ4Lm1KuR8ZeA/rZTy3Dz7rwwZFCDqHtWI/vP UciZ4LRdrIe1cI1cOjMzxkMcc0Mfz4bVgdLSTwqdeMk9vmWtk4n1kLczdzyr uI48WLm+K6e5AZ+5z/7kf7+efHqa+JEMNUJzwPJ+4K0NpKZ97JiL1wfofPbf KyXFR5r2iBdESTRhpNTUpSqFn4wEfIlixTZBWbhdknZFkGx8yDyfpNoMPnBN uqc3kQPlW/KDypuh8dVwbqeBEHno7rksZtQCFtOMx1BJmIh/O53aO96CnMdl l2W4wiTmzrBwwd1WmK+z729oECETx+UMD21uw1XbezkC4VvIZPIjg5LwNvxI 39ugZbKVXBk4WhRAbUejiBK//ZEfiOftt4Ir79pRkOr6jxKvKDkwZbjZ5VgH 7vEo6tb1iJLVglxuBKsDfN1OJ22yxQjXy05zxYqFgTjZ4EjnbeTFO2M9Oy4L wbu3r80z2E6mdNfDw/sj/MPNK01kxEmHdndvyg+dMAy+1CAwJE40jIS+ir3s xPfjsfORjB0ktmO5T/JgFzgDxxyZnhJk87sdHkcKuxCtdmBHvYkkseOdFpo8 042UR/bC9H1SZDhrQYfR0w1Pg6uneblSZKuD8WK9eQ8Od0cleNZLE5XYBz53 F3sQtueflPrTMsRWpfGDqkcvHhQ/DTudJ0OiVVjzzyT6oL3DILZGTpZ4ayLg l/Q+HLWpvCjsJUuOGo/emJXoR6SEqVwdV5YUNAWti6T3Q640PlTn4k4C+1YH vZR++O9jKjYzdpII2ePS8ZP9MJ9e21StSCWO7kL51b+yYZoxJePlRyVG2+2V 51zYsHbVX9IMoBJada6Ikisb9vrZHQJBVLL77tKssRsbj7n2vv6hVDLDciuq ecRG6pH5xWcRVOITFqj70puN+ZLV9rgkKikQS7c9EcyGf7PA07JKKhEXHX0b FM9G+OsbFh7VVEKpUP6n6g0br+0aaCdrqWTQ3vbBcgIbb0X9F2obqCSzbV6D nsxGt+EWi5Y2KjkVsuGjagYbCpzttE+cf/+3yi+y89nYn+0kFTNAJZfLrveJ FrKh+qhr/toQlRy3Syk9/Z4NLYWI9C8jVCLU+pNPThEbtlYyUpOTVBIfRJP0 KmPD+beH85nTVOJL8+RhlLPxSPBTqx2XSm5P1wxMVbARlvb6yffvVAJ9vVSj ajaiXdbS8xeoRJ43NDCgho2kM9eOOS9RCX/WR4eKWjayd1ZIqq9QyaSp5MXF OjYY0/Lzq6tU0iFigv0NbPwfxyCWHw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 0.5564194906115415}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5020884331011515`*^9, 3.502088806777525*^9, 3.502089089956722*^9, 3.5023557069014525`*^9, 3.502358332847648*^9, 3.5023583767341585`*^9, 3.502359444236216*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BodePlot", "[", RowBox[{"W", ",", RowBox[{"-", "3"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.502088495859741*^9, 3.5020886108253174`*^9}, { 3.502088823899504*^9, 3.5020888778095875`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtl3k01P37xm2TrURkMKUhaayzGLLl/VYUWbI9ZITQLtVTSouosSQRIoWi NA9aFaIUn1uWKHoKT2WJSFNR1omxf/3O+f1xn/u8/rjuc65zn3Odc2kEHnLb JSYiIlK/MP+3BWt4sfG3KJBrjIfPuGOc57iqzugGBU5ktk28csZ429FM0udr FPgVempeYQvGFZAcTU+mQMebZrk8jHGszxluawQF0t53G7w1wFg1xTNCfTsF dhudClGXwthqRup4kTIFPAb9+WdOIny+OWRX+0U1CFfyMBdxtMJr9hSWvfVT hZzkqHXOlRY4TGbYsNRWBfj0GtKIjxm25Tww12CRwbNs22AKaR1Wv9z7jCGp DOKPX9nHhLPxvU/KfkbDSmBlNW7Tps7CNpLVx9qrFEHk6Bdnw5V0vK13QIOU sQwucRPfSC/XxdRGxTHNaAVYdas9mbZzDRbcKF73zUsetGQehThupeLJGd4G 40g5mDRYsVNZm4xFyZ1W+d6LQW72IS23XhZTRcU1A0kykJGhYi1hMoTypWhb xdskYfiP26a3nn8I2y+WQb/PkMC844NLuZ8cdMg73OwyEIeU5L+zLNNUoM3P a20pSRTeSSrtVz1BhY7JPN0HvrPEiH9IVMMdLSh9s3uHseMs8SXh1kz6Uy24 fEM7vcJ8lmi9GhLg+0oLtljnib4lzxIFo6VvWvu0oDzun0+D72eIP+e62CGr 1kAmmRfL2DRD8FTRsGXqGthmfKu32HCa0OT+4a48pg2th7Myy+eFxOu/69es ptKAUXWZ3PRLSDge8D06Y0CDRIX4tO42IfHsYPaaNxY02FR04pJEiZAYfGJ4 1c6LBs/G/uI67xUSp76GNL5MpEH2cfn9ve8miAdHaGUPhDTYGx5jJpM7Ttzf I22qX6cDNY3hpSuSxolcls2n2806oLEy1IgePk443JERl+/WgfaKQAMPz3Ei OVOir3ZCB5zmkUa2zDhR19fgmE/TBRZ3Sop19A/hl/Hsu2WcLkyfP/TJ20ZA KEr52mVZ6QH19sNLNUwB8c2lJXmfvR7YVP62oa8SEDW2SQf0PfQgQRD8WGJq jEjzs25P2qcH6gF74wsLxwip4dTwplQ9wOYBliTKGLHce+Dpar4exP5yu/lo ZIRIVC8rtebqw13Jy56U7hGCH52jcvuiPvyr+X5xbOMI0cnro0+m6YOK99aT PvkjhN+zwItR+fpwp9bBbZHvCOFR7eil0KgPjdk2Etvrhwmzj9dLlBQNQDP3 wDs5qyFi9ZH7YZ3XDMC6PP5WIGWIeHlmSuB+0wB2NBccKRUOEtQIb72X+QaQ I/ZNya94kNB9NN3GLTWAFUG+3g9og8TmVMPeKy0GsFzLuddB8TeRcNZ/WnKx IUjl0QVxP/oJN3uetsNxQ1hb6VTbWdtPdHLTTPLCDWHTh+B0xu1+YqdbfpuQ awgxiwpMP/n2E6ZT88LoJEMQ20M9s7blJ8FR3R5hVmAI02sVFtVV/CACog70 qn0yhME7o2TxVD6R7qdSM82kgxwRGRYcwiey3wWINq2jA7118ceWzXyiOG7L rSvr6XB4TjudN/ONUNsfYrbEng5jbj5Km3Z/I+JnBqhX/ekgnK6Wv2DWRyyP 4d6mXqSDqPMV6aVfeogdh3SdgzrpoBmkuS+svIf42l6iY9ZDhw0nCuu703qI sYnj85J8OkTnNpx/ZN9DvN798G3yEB0WTcyS3Iq/EJrBpqY0UQYo4yYJ3SXd BFWbKLdXZIBO36FxY047cWGm/8RGYwaoNDdEiCu1E/VWlLu0dQxYBKsl3ze1 EcpTl87LmjGgN+sj+YB1GyGIPeX72pIBme7ILJf2iQgFGQUDGwYsrpYLl5v4 j9gvho9ddGPA8K0Hot9T3xP1ws86LSEMCCE+qDKyqohnAZOvanMYMPfsuk5G EyCtwO2uupMM6EodVOoPrEKmWpMz96cYUBmCRSyEVWgZN1yHMcOACI2+D52a 1Yhfa6ZhOr+gj9OLpp6oRRsLnV22kpgw51Xela/5GjlNFX++qcCE+akB+47n 75GPROKsmB4Thr6nEVGLmlFDZXDGbX0mdLeuN9Z3bUZFlM03bA2ZQDxMop7h N6OT/01OJTKZEBloNKGu0IqOW1zrYZgu3Gs4xQvc/QE9sNsvWWe7wNek53/K dyCuY4PlzkAmbHh55N4Vzw4klqfaS93JhOiBDi/r6x1o2msms3sXE2SsHj66 trYTFXTZBQbtY4LyV7fAzVafUdeeZvGYw0wwNLheywvuRkXke/EmkUwo3EGu o3/tQVPoZ2xUNhNc/jhcJy3qRZUpCqLJN5kweuHskQ5aL3IKKz6Uk8sE4+Kf 6ucP9iL573ObX+Ux4TnpRVjXZC8qcbB4YlHIhFd3d+gkyvehq9cEqpWw4F9w J6F/PR955twR9ecz4WzCodZ7QXw0vmJKXe4nE6haxitCLvCRtAKtrWqACTvc 4d5QKx+JRKQ4rRthwpfHH14Lgr+ji8uiOT4zC3xQXHo+4wdKvBa0PkWRBb0/ tscojvcjz2OOwfO2LOCe1WxqpQwgfNS8ztOeBZoqP5TSrQeQd3U6ucSRBYGb j/JUEgdQWX/k67PuC/p/LlSv1PqFarbH3A8KYMHXwFJRmttv9FeZrJN3BAv6 OpdGWD4cQiYz7iyPChYIumzdnVqGEMdX5POBKhaQek7T/IRDiOG2uSChlgWp o0d/Io1hZKtwo7GniQUl492pAcHDaOss++zXLhZMzJX94M0PI/uHRXRnMSMI X7r3sh5tFKm50NhLthpBtLz4bLH56ML/hrRXeRhBgkL2HkunUUSVTk838zaC G4qtlk5HRlHz8wHluCAjqCTj7wdfjKKwFp3qhBNGIEJVsSxyGUMlUcsH1vOM IIZR/830pACtvGkaGyvGhlysqM6NF6AG/z0vXKTYAC5+nm+yBIgeWhK8Wo4N U4cFdb6VArTDKt29V5UNBx9TC7jif1BMlzP5FZMNnqyT+xsT/6C4ytLnrCA2 aLN1h/xzx5Ed6arUy0Y2bLQ5tvZO8Tha9++fbwUtbNjhAf6jNeNoYCZcIaOd DZmhnu+iv4+j/3ZG7rvygw1yT7iP7+hPoD6ZitI5CWOYMO44OlY6gTZFbPe4 hoyhfl2CMPaNENV7S8hKvTCGnQ05P227hChCQ6nufY0xiPgUt0uMCJHVfJVa fpMxmEW0v+AqT6ITcbybod3GcLeGdi4iYBLxeYdjssRNING1Vvr4xCQaDqNF UZxNwC14Tm3X6mnkaptpIhgwgc/Zh9dvPD2LtM97LF3hYAqXEHvmZcIs0nr1 tFTO0xTwl4nyDdmzCPK3npANMIVcjUjTDVWzqCiqyHJ1mCns5iUaWUvOoZ/o 7p43t00X8vuuDkqdQwcry39MzZmCyJO+5Rb35lFJabpr2QszSNmlH5bxWwR3 7g9dEuJhAS8087Xjl4njTK+7CcJWK3i3lDXE3E3CXWreTk7x1hDeXRkyliKJ Y3p9OgfvbgSFbh/SgV/SuLyKTtJT3ARWVVNuc+qLce4+27C/A+wgdMvNsAub 5PAtfqd4yP0t8Fr0XvsuZ3n82MhZNcXQCfL+jW1N3aWADxdUurXHbYWwJ/2c lWnL8HFSvGuhrCs0Dr53XF2hiK/wZX+fc3KDENVyVZNmJVx28q7H9El3ENuu e5Q3txyb/5JLGiM84GtSVv4qMhnrz/hZ+A7/BXbk5M1kXRWsuX5A/qOaF+SW Lg7d76GKT+cMRxX7bQO7zfGnX+9Xw+JmjN6BBG+oflh6+p9DarjdviiAedkb rJS/nj4bqoZf+AT0HL/qDUbfLMJNItTw03c2PaK53qAe9Ts8N0UN2/gs/0ou 84axSpeIU0/VsPviqMGNPd6QbUI+p7uIgudiRjWuG3NANXvjOZIsBT/leeT1 mHMgjXT43JelFLxm9qPuWsyBC63159JVKbhCzZpdtIUDoUdOccUMKDjpcJpd vT8H7B9+jmp3p+Cda2ePCy5woGa5TPSTbRTc1OE8a5bEAaszJtHJvhR8fkVF VGQaB9iOSdGb9lBwKX0wWSaHA+r9OKboFAW7mmfdp5ZwIMM1JCYxkoKl+huM dj/jgNKzjJi90RSsK6/4/F4lB6TjRmPUL1FwJIw1mDRwIHpIPXbyMgXzGuNd w99yYM7TIbb1KgXLulu0VbVw4GRlWGzhdQrWViYFSLZx4P/7Bp799P2HYxcH /gcnADR/ "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[1000], 0}, {-6.907755278982137, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[1000], Log[1000]}, {-107.47344420091027`, 32.652280837395}}, {{-6.907755278982137, 6.907755278982137}, {-107.47344420091027`, 32.652280837395}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt2nc4le//AHB7j2PPrKxKGQkR5+7YSmWcI0LWOZGVkBkNIiUlZCUhfYyQ GannjYaRIjLKXolQoSLj+/yu6/fPOdfreq77ft/3ezznnyPr5m9NZaCjo9PH P/7ve0Wh4FrCQwkI4r6pLBNMgcKj0m/235eAaY4IiiDuk4GZzMPp+PNnt0PY cL+A2zGqtyUgX/tv8o8gClw7dfFKb5QE1K2r7AXcYncoUVKOElAUUzDhiNtg g+1CpbAEBJJJczcCKfBDLqbmFL8EfPna6hKFO898e4WJRwLGktJbz+Fmvbca aMcsAQrCPd5k3F3qEwEby+LAPvZjawdutzPPfU26xaE5Ksi89DwF4j76Uj/f EIewGY61xgAKfB6o1VKMEwft6le7SnGrjG6znr8iDpeyy0yycHfN3ylmDxMH vkM1RmG4xZlrl3Ro4iCqtHZME3eZ9lbYPSQObgqn4grPUaAv+9Yt21UxeOqe PhjuTwHl/P7TuT/EIPvIT5czuCOKZNS/z4tByHG7bhvcMrWVPVcnxGDGacRH BffZD32iVR/E4HHYlxtDfhTYopfO5ysWA+ODBlY6uBXOlNe9dxaDxTuqasM+ FKj0ukk+6yAGXs4Nsq24kY/XMjNFDCTZxDcqcTsE7FTVtxQDwuTPs/G4b0fc KyzRE4MDUvv3aeBeT4pOjRcVg2cGYpqXvSnw/tnxQNJHUchXdL7EdZYCp56r 8I10ikId96+TK14UmH3BXh7WJgpNkb+Eh3AztrTMVYAosE20kEpw63Rqu0mX i8IXIz+KGe68cWmrjRuiMPj1oc1FTwqEcPzYV2ssCiEyBe+6aRSo3Zb6cuaw KDBM8ebX4v69Yhknpi8KV86pOmbhDhotGY3UFIVed84LHrjPVZ+5bbhTFDZr 6o1WqXi+nEd/dtGJwqRPmjofbufK99Xzz0VA4bTOaXV3Ctx/vOlyv04ELgYQ j/LjHspW4T5eJQI7bjSLLLvh94tLoFYWi4CmXKl5Ne6TjibCYRki8DWIV+gA bmuWlyEsISKw5Vi0S82VAsYOT3RlNURgP/Iy4DxNAXnV4tDgvSKwHt1ROuVM ASamx7VtyiLg6sC1+AJ385NcjfPSItAbRZn1x43oU3a3cIkAo712bbcTBQ79 Fy5O/SoMi/VVcTcdKaDx23T9v2xhGOTJCB22pwB/h5HO5j1hoJOt66/A/fPB 4QtWd4WhpfQ+QwzuCnO9X2vXhYG7/EPDLtx77++bswgRhkdKbGXnT+L9ZyT0 +buVMNBGJzzXKRSQSp6oV2MVhgLxJ16jNni93ANf9TIIw9sHArrluK01mT6E bgkBtWb0UxTuuD6FKVgVAqnuZr8duH+Ie/FYTQmBZKez9ElrCjTlL7kFNAmB tY+vWcsJCnjUbHBWRggBcr9M8LekQNS1RGFKiBBUOScNauNOt5OSXT8vBEu5 J2l0uDvXiFqks0JQNyDUfvsoBbQMrrp8PCkE3lFrlWVHKMD2lr3m1wEhSPI5 +2HEnAIlA8LO+38IQtq5d0d4TChAux68HjYvCLz+Bs/ajPF50u1NgxlBaLtx pycGd0rWnQ+Ww4IwRDsltG6En8eZ67BnuyDwd800jBni952il79fIAjk1VLt nMMU+Lv0/RuLvSD41qJ9/Yfw+co9cs3SVhBGop2r43D7WhXLpRwXBEiLGtLG PVF55pSsiSBYnGHnu6dHgY7giXd6+wXhEx/r9gldCuT86y8/xy0Imge+JFRq U8CItSX4c5MAPGaqVNqlgdevOFBG+4UAmHmvPH+vTgHJY/Idd58JQF2P0ddA 3KspsTKW5QIgtG8X/Qs1/H0rZ9aBZQvAz827mhaqFGA36JR5FCIA896YygkV fH6D+jv89wqASvfMZxZFCuiKxl94pywAOuJ5DjkK+PrnOrK75AXAyU3W9QDu aIbMCxPiAvCgXJfOTZ4CarcdZclsAnDb0DGkRo4Cd0vGL+hO8gOlz73DSBqf j4l5WeYMftCaof6lE6XA9mW1jKcp/GCBgHJbBN9fNpjgfJsffq0e05PGveKy tVUbxw+3b2yk6AlT4M4oYcjzAj9shkpH+glSoH3oQNo7G35gElvIbyTg89Af zZHCww+xEZpJv9koMHnh1WXEwQ9xVqYlwbgThNnXvjPzw7U9AodWWCkwQE7+ arzJB53rUfVLLBQI7i149WeeD2Z6dgqMMeHv5+62qFNtfNCzI+L5Izq8P94J LMvF8MGccFQi/CHDmSOKGwHRfLAhfDpTBndZuw5zUzgfVOmvzUf/JoN+m5PI 6QA+cNn8aX9olQwObx7rZTnzQYPEolnpLzKkgl6MwEE+sJN7WH5mgQwcNe5C TIsEcCuA4yYTZLDSvCBl840AqnTyeonjZEivilfKmyKAyQ+pYz1jZFCqfHIQ fSGAnO7PGcdRMhiV/3GKbCWAfL1rK3WIDNFFNwpX8gj479oDL8s+Mqzcr9Ke tiPAdcMDkz5tZLgg5sAdY0OABy9S2R61kuFvCt2k3HEC+Esesh16S4aNG5a3 XEwIoJ5Q6WD2hgzM4V+nvmgSwDgzjEO4hQzCFInkj3wEsMld3BnXSIZzkiyD 0fd4IUT6SnR9GRmCBGxiXtzihaJYqbTeJ2QI5chV/RfLC7aHZqsWS8lw+e/B axeCeKHUYZhOpoQMyb2++32teOG7IVvLhcdkqL75KdGBkxcmLjeuLz8gw9pG AelANA94+OslK9wmg9tgKseDCzyw8PRhnnwSGdprrn1k8+MBoPHmyd0iQ6af p9uQIw84mqd6Sdwkg+7YnitXdXmAeUByYzuODBEtlU3dq9xQG7VXIyWaDJvX Afn5cMNNFWLzmC8ZaLSnbAPu3PCGIhLx3IcM70l5XYdPccPu5uubKd5kfD6v ughZcENWvrGDkRcZDHxNLzUqcUP8qsCJFA88/yfeYxyTXMBYJcX314EM9CJD Bo/tuSD51+y71yZkKK703E05wQX1Ub4NDsZksD62KsRsygW/rZjZFw3JkBfL s+CmyQVkCbtm3sN4fVdQlhQvF/x4dCmQqEeG+O5Hf1JfcUKjr7vuMVUyEG76 V8SocsKeTn+KpDAZniltZO1X5AT3vd79YYJkcG2Jj5uQ5ASBF4kXP/GToXL9 oTPi4ARJTwf1OF4y2Hr1cm1McYBmlfp2DxvebyYHvQIzOaDZzdaf758tyNAz yrkxc8D1tGIF7hFbMEitK6zYYIdADc38I0O24LjLZ8/2MjvEMJ43j/9sC+lW nzSzJ9hh+9UC20afLfDlPTbtw9ghPvyzbOcHW2AwPOprEc4OA1VEJcEmW5iK SX2mscQGAlfDc5Xz8OdiFvqXZ9jAZb97qXIuHv/JVtOHYTZYIY8/UszB4306 0+Hzjg1ScpfsJTNt4ZOC7khhERuEUCm3F+/Ywps3I4wSHmzwep3/qsplW3jM pnyccZAVRLbGqumcbYHFMfRP2gdWIOSVlF0/ZQse5a0Pdr9hhZzkZ4u89ng8 itcPqypWeBKGtAVtbSEzv/hObiIrMPjTHv4zt4VbBnt79UmsIOijmmx4wBYu BGnYh5awQI01uvKI3RZ6316h58pjgdi/LRofWWxhv0RP0YN0FpCP8//0j9EW fjQFrr+JZYHzTbkzxls2cJa3JkvIhQWq70guVv+yAedi7ZFKQRagpJ4lbny2 AeOxQ+4LF5lBw/6X344iG2ATU1d+EsQMtuMmnr8e2UC7lcKCjzczHHu0JfUq zwaOtXCHfD/JDITawQanbBs4WTiSML+fGV5cOOnplYTH87lU+e0bE5CXPC+N BdnA7b8t9DNkJhj7XqWjr28DXwhHckf2MsLOxIqjWi3WwE86s6WvwAiLjmjK D7MGi8CrjvclGeHkBzO1gufW0PDpuagjJyOgkPwxpmpryMxUuTM4ywAD5/Kj cwqswUGe50pvPgMU0i2Wq8daw2ftbvd2MQbIzyxu6DK0hkFnO6VaZno46nRh d2etFVgf5y1y2KADsvLlrbdPraCd+Hb39i86OKAT3/6y1AoaZLT3mY3RwYMq bsvcPCvInhA+8LmBDtpzEgj7b1mBM62PtOVPB8IPYzzSPazgzZfixpvV21jf 3zNL3jxW8GWtcPcTp01sPEuqrIFyAnrPZWU2bP/Fls/3PrBptIR/cf4D9kYr 2HzJkXolJwuQyS+79Up9BTtxsXtq67gFGL1cMFKVXsHyny8tDpAs4OaK91Om 9WVM6oU9R5qyBUi5eiaUly9jkZpyJ7RXzAHpuh5illjGfDn42vbeNIdr361z K37+xMbIvw8VYWYgl+fTxWOwhM0MG1d06prC4YaEh24SS9jO5SnRNVVTcPn4 3/nav4vY2LT8oIqCKTxgmBZ0rlrEKlwdqp7wmoKku5P9E+VF7PD5Lh6RaRMQ kj82cURgAfvee2pP5h0TYCtUXYmfncPga1bw95/GoPTS8vXQ6zlsbHk5x3zW GEz6vNPU8uew2oKjd5+OGEMsy386A05zmGkXg2JehzEwnJG5qNTzDRPufLDA WmgM/5T4WN68mMV83owkrDoaw2LRLxHGuzPYa82dx7t6jIAHiw7x9p3B+o7a Ga21G4FqL1d/j+kMFjM87KHebATnthTTCjamsUTeouAPFUawbH1K0IQ2jcnE Gi29umUEf/+1EK4fnMI0ZdOzH1kagSif1bmfAlPYT+dbUu3GRnBQceSD/eIk 9nOofnlL3wjCT/y9tTt/EmtCO4Yz9hnBRoEK9zuuSUxW+1tCGsEI6I+lsvOO jWNnlyxH6/sNQc5dziukYRyTP00Omu8yBFJoeetoyjj25UGF+752Q4jJa4ur MB/HDsLIrdlGQ2D5s8lsXTWGGQYPv1TNNwRh1Mm0m3sUyzFndRMONAS7s19b 1ptGsNYErrsevoaQnkJ/tePCCPZTZ4nl9RlDkPh2gN53bBjLvHx9odHREGSS czbLq4awHec+7EkwNYRdU/6/Dzh8xhxG1F49kjEE0Y9tUYyCn7GAsZbMs5J4 fNjJ2t05iHlW5vMgUUOYyOoX8Tk8iD2XN1uVJBhCpg3xYJ7yAMbAerDjAZ0h xB/OaPKf6MdqVt5kzG2Q4ILqsrl+dj92+UC/lckaCWw4HzsM8PZjv1rI+Wq/ SMDVwhPJ8+cT1vFKor17igTrFZ5MQxWfsJyuK5MF4ySYzWm+WXT2EybUH7Lv +ggJXodfuG800otRp2YjYgdIEKUx8jL8dQ/Gwf102rKTBD4yOqZm0T0Y0/CL yJJ2EjjwJH8QOtiDPZBPvS7eSgLtOeOxitKPmGdglcLeFhL8ePiE/uvdbiy+ cd9RhQYSjCSxJlRbdmOzP89d4H1GgncXXfmvsHZjAULGdpy1JCiyF9q5I6IL 2+Mh4KhTSYJ7pv4lc5pdmIPy4ySvChJweCefOTf8Aet2o8soLSNBi9x6fOGr 91gpVB3xLCFB7taTjMM67zE+S3Om8SISRH52LR4q6cQELkg89f6PBJrJbR38 d99hC2wBzHWPSEDwuzj0hOUdJvKj73lIAQkWzNUXzMI7sEIwiLHIJ0EhfQZP tGs7dr/Vw1PxIQmuDB+VFv/Uho1VPU1WzSXB6Xo6tRqzNowdSX23eECCQ6nV 6ERjKxY+MBARmkMC0QBPq3nVVoykxWL+7D4JVo5Kul3Lf4v1XWty4MDdrdx1 XlbkLXYpWfKZXzYJyphirjYmvMFOTUh7TmeRIGFMO8Vu6zUmPdMe4Ieb1jhf 8CvgNeYsJjjEjtsw/UFN4vQr7Lrytyd1mSSQCbJ5o2z/CosUUl0Mwb1xnLW/ 5V0L9vxUc74F7oE9z786oxZMRzDkkyrualb/v2tVzdhLUbEEJdy3J+XYU5Wa sTVFn1Z13L5Yn5haVhPGyahy7xju+J+tKzf5mrDU8rmxSNx5O59/+BYH2JLb Ns8L3KElDuTEDQyzqy9V4sXPV8pL5DT99hL74b1PPRD3eODOJrq+F5i2X736 N9zCA6whDc2NGANnpGoAfn+LQ99VgsqfY9L0OWqceH6ic7sm9mY3YLcfIL06 3NVMNelf4+sxu/EocjCe31nPjGMPg59hn+J9Y43x/O/ovMh0yq0Oe6cr0a2E 18da3a1B8HgtNpt+20ASr9+1VJNz7/VqsM+nunrk8kjwfG23YrxyNUbw7U/T w+st37x85x99JVZQzP8yH+8Pe8UB05rFCux2lPy+5UISSAiF/RuuLcfEZeon bfF+WnzE0fPKqwQLaZvTOo73n51fj4GOYRHm3a479rWUBKCVXVwi+RgbqQuc Scb79e7bvVeSP+RhF7+8l5HB+3sj6fcCc1EuRlKMdGGoxuehIqrqF9N97Ha5 suCfGhIEfHzoBmdTsN63rosi+PyMPUGsI5Ve2BBzHLcOPl+C96ihfd5WRC27 KzfLXpMgXK6H6JAUTPTif1+qjc/jL8v8Jr6NG8R+v7Kvl/H5LXO/ccVX4wEx S1R04jc+337fIskt2ENiuP5BVsYhEjDJVn87PpNPjEtfXpMdJYHGbTl+r/3/ EZ8wEJzTp0lgUhf9tJNWQfziJlt/ZpkE/DZZ/wTCnxLthF0mOf6QYHix1tgh sZJYJ36XpWmdBEGKi4MzVdXEeJfDljQGQ3iY6shAR19P3Cb8PJfKbwhb9dm7 MjqB2Dh8tCJByxBG7i4Kzrk1EUfrclra9AzhpS+i0/vbRHwhUHFL+rAhRMlO 9Q3JtRDzPR1ovEfx9fF7YmRCXxMvZrz7SOeO265h5LFcO1Fh6ZWZWiq+nzpX +9+6dmKs19rEcBa+H6dzjbllB1EzajErLw/fD6O/OR/yjmh/R+VqQAW+XtH8 oGrne2Joi8knhU5D2F6fN//yvJtIvZn6dYHDCJa+pmBXWT4SR2a1rAkCRjDa q39AxeojcXbRQN9CwgiwsiSZizMfiTn0XKVMKkYQ7bb/jxRfLzFpGUtKOWYE 223hBW60PuLoe4K/QjrudPbtb4QvxBJycpW6vjGQms+XpFK+ECPenJW6bWoM MfNf7A5nfyFqHgpNZbQ2Bg6Dsop0pSGiHpt23a4zxiA8ae1majBMHKzgUAtM NoZ9e7NfF3iPEuV/N7JufTeGcheRN6qT40Teq6wH2CtN4MTqkWxmlgninQaR OF7MBH5dv3T+i/IEsZhNznjPOxM4UPVNKs5vgmh8UYw7f8YEnjM3hoysTRCP uWnRpUiawttil12JhCliRb1fV+RNUxhdKbo5pz9D7Dg0WnAu0gwu3fTvLXGf IY4HRc6EJpqBjPwBSd/rM0Sjoh8+mTlm4GIDJUu9M8S10hbDXU1mMPa0r33F +yuRBdP4EcxqDmN+jOzbGbPEfPPB4LZ0c5iYdYwV+D1HDM1re3j4vQVcuSTX 2SsxT2QYNhP1nbAAOdFZwbTD88TkXnWHp78twM00sEA0cZ54S+DfzhjpIzDx 6HrLDvnvxD+dCptW54/ApFstvbL1AvFf4EBQnORRmBrijTpUtkQsM+914r9q CSsjxjaWPUtERbJL7ECGJTCPRyg7/10i9hSlm9VUWMLdX4HfiLI/iJd4pb0q Ryyh+vfoXVfvH8SVZo/ger1j8GerbrZg+wfxsMPl5e9rxyCS1zN5j/IvonTa gWgtwxMQq9Y6rRO2QpS6eudC9IIVtGrf/Hut4y9xwfwPt5IjGYZzzukbRmwS tbSTuY2P28MdqkpIxgIdanWhv7RjxhEa5R4rJvAzIgOy0MIUhwucO9b2ekCC EdH554AtnwvIh897KCkwomAjVjUQcYHEbtX8V9qMSPl+aP91eRdwvvRMetuR EZ127Nz+qu8C9CNtokGPGRGXaf/jTn8XMMn4zuF8iAmFTT93Vu9ygS5ejSV1 GjOSNbKqVLjqCryGKqtjfsyov/9huHC8Kxy7oPgvKYQZTf9WIDEmukLHkDjr YjwzUh6/1t2V5gpvihili0uYkc/uOyyHil3hueGnY3I/mRH3QtJ1my5XKAwJ LeOPZEGp4sdO3xJzg+ni89VNMSzIqzp5jk7KDeRHfBrOJbIgRvcT6f5ybvDQ yPXN+xwWFChz0PXwHjfI5rMYSWhiQc8Nl3pqD7nBnRIJHkZWVpQWcqVwztkN Ikdf+i7fYUX3tPZqX8l1g3CbHSecsliRf2lzY3eBG4S+jdB4W8CK2LcPrEsW uUFwuc6fzDpW9Dd7s7DwqRv4RVdeIg2zIqfpb4S4ZjdwlS68e0eZDZ1ajguL mnQDk9OJ9aoYG0q8tDHtIOcORj3zWRmtbOgSVeCRoqI7GJpaRDF+ZEO7ZR4G Le5yB6TKatg/xYb+iA6fOK/uDge3L72L4mBHCW0nTxxB7qDyIGi0k8yOTFIN mYyd3IFv9BSzz3d25M1XcdgnxR0yHZKPaa2yowJIT4y75w5yfa336LbY0WGZ lJcPMt1Bs/PA7lReDlQlXzT4JtcdKM95j7/U4EAb59MP/ih1h+x7LemEMA4U tlnS/vSVOyif2KNSw8yJTmp+Dqb/5Q5PO1yDo3k40dfjCSovV9xB1zT9pbkI J1Ka4BYJ/eMORwyYrUaUOVHWK5M7kxvu4KcyGsx6lBNJ7LV3zmD1gCq2u5h9 MidK0dgTckXSAwya1q23pLjQru+O5FNGHuBulxidrcSFlHqHpOpMPCB+QbpU V40Lqdxmukww94CPYsbMIYe5kNHrTZFGSw+gnk+qW3LnQlUjOp2/KR5wc6e8 5Ph/uLvktTY8PWAw1nK6RYMbpQdKvyff8IAtiTE+Nz1upPBy+51nogfIVZ43 oDPiRv5Sg4/DkjzAZ+TevUNkbuSkkriWctcD6LQnzGtCuJHICwvjyiwPUJy9 UFbYyI0u0/QOXS/xgCCL3JDrJjyor7TEqrbNA07K3rs0cZwHbVIS2Ss6PED/ b+J1PXse1PN+OvZxpwewFEZkLXjzoNF9Pp+Suj0gnd4Os7rDg9BSKJ/JoAc0 PuNmFR/iQbcGo5iOzHoAk1JEWnEAL1JQFXv8hokKs5sBDxgjeNGRN89PXWSh Qmev53+OMbwo1uuRpAYbFdKuUBp47vGiHPLrjlROKiiPqI+cb+RFu//xipvw U6HQYiX5PiMBlY0amB6VpkI7fcln6jECOtfJxbipTQWGgOTkZmsCasqNmD19 kAoHx8IspO0IiLHHzrpJlwr/vTRrGDhNQDZfguuj9alwLWIm40gAAU2stm7P kahweFXWXj2FgEqcDzdGWlLh2Wx6/8YgAdk1Gijfc6XCD7tLSfYjBOTFdj+k 040KSm/PmNZOENBT7WdhDB74+R9p1fnPE5DizdQsTxoVgtx60yY2CGjVrSZC wZsKqkO8lFZpPvTKKLPfLQi/z4drvXepfCitZJVzNZYK+qdz1y3P8iGdRO8x 8Tgq9C7Wy7D586H5g9NOxHgqMPIs+ESG8qG+GEaHmAQquBy1Yabe4EMMu3wv b92ignibtJbWUz4UfqrsS/U9KtxqfnZvYIMPifzzHtv/HxUUrD++SKbnR/Vq LmXqRVRoHJ+fPMrCj1S/WtrsK6bCPJ20WhMvP/Jj9FOSL6WCGTG2tUiOH8XL D+xgqMDz22i1Fm7Gj173HD0TX0eFkJo5hx0p/GhQdS/p7WsqOFpXnm9K50fR K41+OW+oQFoKS6De50dNLPfyg95SgWsXe8OTQn7UPnR7t1QbFfKylcQM6vmR oo7SO+o7Kry76tHvPMKPqottj7V+pIKc9YhNrrIA4jtrljo+QgXWpUfeRnsF ELPZk76sUSp8v+F7dVZdABGVHQ6Tx6hQ93qjUk1PAH1+65L2epwKRw9K8DdZ CiDJ3jr77Cn8vDInu8bPC6Ac9k7hnXN4vMXuoztfCKC9r16/zFqhwoUk5vSQ JgGUpPxZTmOVCrJqByc7Xgugr74M029xXwjIDQt6L4BuzJOu/fxNBZkVv8LX owJIBlkc11/D673GSefJIIiiok8l1W1SQZLJpKrUVBC5c26S9Fho8KYgbIvu qCDq2TlY8hJ3gPETc/IJQeSyVyruMCv+/Jrg2OZJQQTvDt8zZqPBOfZJruNn BVG0tfs+Uw4avOK5RPt5UxD9USuuV+Ohga9Yg5jWR0E0wHVN/aEQDUI/S/d8 7RNEfUEsxTuEaXAlK/Zmxhd8PYH7TgbutB1W2xtTgijhjdWTJBEagOzsVMsf QfRphqAeLEYD/t3CFVY7hFAfa/mqwg4aPNM9b+LrKYS4/AI/yMnToPlf/7aU rxBa6Cy0voX7XaN+fVeAEDobufPkGu5xA3YVzQghFHyV9L1TgQYchrl8/xKF 0L2o32YBSjRwOvJ+KL5KCJ0U5rF6uJsGDI67Awu2hNBBiauuxWo0+CizcZqF URhVzVkK06vT4OF051FPVmGUV0T1scON/AMUVQjCqMJLdItBgwZRV54NVskK IxOobybvp8H6fyaoxUgYOWesKc8doMGvVTfuiQRh9MVpWqBbFz9/g+a6YZIw 0vQWqpTUo8GdaJavj+4KI9V7RZtncKuxF4NXtjC6cZKWs4nbT/Jn4M8nwogl aYVXQZ8Gc6Toz3Tdwmi9DdFRiTSYTMp6LC0ighwsLLxKDGlA5yZxzVtCBP3e 2E/4jltKM8ujTloE2QkMBagY0cBhIFP2uLIIco9NopXi7pLJzIo6KIJaNhN2 FBnToPFpetLwKRFU5sVHn2aK16snNSQrVwTVq2PxxCM0qH4kRPlaIIIeCOjy heLuDknV3F8kgg6W7nSqwM0lmfqz/akIKiGYIJmjeP09UrzXm0WQ20an7iZu /9Xk0/bTIggN6euUHqOBmchtU5Hdogi9zaUfs8L7j52UAvtE0cuzzA+FrGlg uLE85rVfFM2PCjMcwW0wbhfeeEgUmUa4ctTg3l8i/cT1uCja7vHWu2aD35dY zl8aJIpi3q857iDTYJX2fhhhosj/WXW4zEkanLe/tHuuRRSFHfrw6RjuH0c0 Qu62iqL7d1n/ReKeU0sjzHSLoqnPHQUDuMfWnQxvTImij5+9IhPt8X67tfDf J3YxFKlrEbDgQIO8Wq6gs7Zi6K78F+54JxpMle5eaTkphpKuCwY9wa2Ubxa0 w0kMrf5qePoRd2lSTFAXVQwdfLRVJelMgzrPjSCtEDFkN60wWIb7nfj3YIZM MRQtdrGj4zR+/qiOkMxRMVRiqh/4zZUGOsHf/ixP4vEPDohyuNEg3Js11HJW DN0sZc3ajZvupGEo3U8xpJH+4oA3bg7156E0BnF0nK68dQ631GRxmIaCOGKq 8Y2ddMfzb5oQ0X5WHOU3nzrZSKVBS1ltxCN/cfR33klxCLeB8GTEpSBxpGww 3PkP9/5pvUitKHG0nctdrEvD97u6EJl3RxzRr6DsWtzLL09EhT8TR5tr6UmP z9AgR0vk8m4WCSStYTTl50UDsRzDy8ycEuinkbROAu4U5nOXx3gl0Jzw5NlH uK/3tl5OE5NA59he+37BHXQ+/ArDXglEZTJbMD5LA/Oy4aufbSSQ1iWnVUFv /H0kxBFTc1ICNT7aabEPt8FFrZjbThLIzEr/kiluzaNJMSZnJFBz5vbtMNxS cyi2MlwCxXa9MhvCnWHlG5sYLYG2D+0tXcEtWJ8R6xkjgVy9uX9x+dCAPf5X rNQtCbTnW4uCPu6YJalra8kSSFd3XICMe4ty5FrvPQk0f4Jp2gd32MuQa+XZ Eoje8ERGDO7///8OevPvq1o27v8BgEWC8w== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->NCache[{-Log[1000], 0}, {-6.907755278982137, 0}], CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, FrameTicks->{{Automatic, Automatic}, {{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {6.907755278982137, FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-Log[1000], Log[1000]}, {-179.39406628903652`, 0}}, {{-6.907755278982137, 6.907755278982137}, {-179.39406628903652`, 0}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}, Ticks->{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {6.907755278982137, FormBox["1000", TraditionalForm]}, {-6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.809142990314028, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.521460917862246, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-5.115995809754082, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.961845129926823, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.8283137373023015`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-4.710530701645918, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.298317366548036, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.703782474656201, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {5.991464547107982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.214608098422191, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.396929655216146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.551080335043404, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.684611727667927, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {6.802394763324311, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, Automatic}], {189., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.5020885068623705`*^9, 3.5020885490647845`*^9}, { 3.5020886000647016`*^9, 3.502088611786372*^9}, {3.5020888115878*^9, 3.502088879090661*^9}, 3.502089094439978*^9, 3.502355707098464*^9, 3.5023583330326586`*^9, 3.5023583769241695`*^9, 3.5023594444352274`*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{989, 812}, WindowMargins->{{4, Automatic}, {Automatic, 2}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 92, 1, 36, "Subsection"], Cell[662, 25, 3012, 71, 132, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3711, 101, 360, 6, 36, "Subsection"], Cell[4074, 109, 381, 13, 57, "Input"], Cell[4458, 124, 475, 14, 57, "Input"], Cell[4936, 140, 389, 13, 57, "Input"], Cell[CellGroupData[{ Cell[5350, 157, 219, 7, 31, "Input"], Cell[5572, 166, 2691, 70, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8300, 241, 172, 5, 31, "Input"], Cell[8475, 248, 2691, 70, 70, "Output"] }, Open ]], Cell[11181, 321, 1259, 38, 72, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[12477, 364, 362, 6, 28, "Subsection"], Cell[12842, 372, 385, 13, 57, "Input"], Cell[13230, 387, 419, 14, 57, "Input"], Cell[CellGroupData[{ Cell[13674, 405, 184, 6, 31, "Input"], Cell[13861, 413, 1528, 40, 70, "Output"] }, Open ]], Cell[15404, 456, 546, 18, 52, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[15987, 479, 378, 6, 28, "Subsection"], Cell[16368, 487, 526, 17, 57, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[16931, 509, 549, 9, 28, "Subsection"], Cell[17483, 520, 660, 10, 29, "Text"], Cell[18146, 532, 586, 17, 67, "DisplayFormula"], Cell[18735, 551, 780, 14, 32, "Text"], Cell[19518, 567, 570, 17, 45, "DisplayFormula"], Cell[20091, 586, 294, 4, 29, "Text"], Cell[20388, 592, 251, 8, 31, "Input"], Cell[20642, 602, 353, 6, 29, "Text"], Cell[CellGroupData[{ Cell[21020, 612, 299, 8, 31, "Input"], Cell[21322, 622, 1550, 41, 71, "Output"] }, Open ]], Cell[22887, 666, 353, 6, 29, "Text"], Cell[23243, 674, 572, 15, 31, "Input"], Cell[23818, 691, 422, 7, 29, "Text"], Cell[24243, 700, 437, 10, 31, "Input"], Cell[24683, 712, 695, 11, 29, "Text"], Cell[25381, 725, 992, 21, 31, "Input"], Cell[26376, 748, 516, 8, 29, "Text"], Cell[26895, 758, 1027, 18, 31, "Input"], Cell[27925, 778, 471, 7, 29, "Text"], Cell[CellGroupData[{ Cell[28421, 789, 5638, 125, 112, "Input"], Cell[34062, 916, 6050, 160, 111, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40161, 1082, 418, 7, 36, "Subsection"], Cell[CellGroupData[{ Cell[40604, 1093, 227, 5, 31, "Input"], Cell[40834, 1100, 1942, 54, 52, "Output"] }, Open ]], Cell[42791, 1157, 1271, 41, 50, "Text"], Cell[CellGroupData[{ Cell[44087, 1202, 1214, 30, 31, "Input"], Cell[45304, 1234, 2271, 67, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47612, 1306, 1992, 57, 52, "Input"], Cell[49607, 1365, 1362, 39, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51006, 1409, 560, 15, 31, "Input"], Cell[51569, 1426, 1385, 39, 32, "Output"] }, Open ]], Cell[52969, 1468, 253, 3, 29, "Text"], Cell[CellGroupData[{ Cell[53247, 1475, 990, 27, 31, "Input"], Cell[54240, 1504, 2364, 68, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56641, 1577, 827, 22, 31, "Input"], Cell[57471, 1601, 2347, 65, 52, "Output"] }, Open ]], Cell[59833, 1669, 268, 5, 29, "Text"], Cell[CellGroupData[{ Cell[60126, 1678, 586, 17, 31, "Input"], Cell[60715, 1697, 1381, 39, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62133, 1741, 1297, 38, 31, "Input"], Cell[63433, 1781, 1356, 39, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64826, 1825, 1022, 29, 31, "Input"], Cell[65851, 1856, 1736, 47, 32, "Output"] }, Open ]], Cell[67602, 1906, 552, 9, 29, "Text"], Cell[CellGroupData[{ Cell[68179, 1919, 3193, 78, 92, "Input"], Cell[71375, 1999, 2661, 71, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74073, 2075, 148, 3, 31, "Input"], Cell[74224, 2080, 2050, 57, 51, "Output"] }, Open ]], Cell[76289, 2140, 200, 2, 29, "Text"], Cell[CellGroupData[{ Cell[76514, 2146, 1812, 46, 92, "Input"], Cell[78329, 2194, 2683, 79, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81049, 2278, 400, 12, 31, "Input"], Cell[81452, 2292, 2997, 85, 83, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84498, 2383, 238, 3, 36, "Subsection"], Cell[84739, 2388, 633, 17, 31, "Input"], Cell[CellGroupData[{ Cell[85397, 2409, 639, 21, 51, "Input"], Cell[86039, 2432, 596, 14, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86672, 2451, 866, 25, 54, "Input"], Cell[87541, 2478, 766, 20, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88344, 2503, 523, 14, 45, "Input"], Cell[88870, 2519, 425, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89332, 2532, 309, 9, 31, "Input"], Cell[89644, 2543, 648, 17, 47, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[90341, 2566, 382, 7, 36, "Subsection"], Cell[90726, 2575, 1232, 20, 47, "Text"], Cell[91961, 2597, 962, 27, 47, "Text"], Cell[CellGroupData[{ Cell[92948, 2628, 253, 4, 27, "Subsubsection"], Cell[93204, 2634, 377, 9, 31, "Input"], Cell[93584, 2645, 1538, 22, 47, "Text"], Cell[95125, 2669, 282, 5, 29, "Text"], Cell[95410, 2676, 244, 3, 29, "Text"], Cell[95657, 2681, 168, 4, 31, "Input"], Cell[95828, 2687, 851, 13, 29, "Text"], Cell[96682, 2702, 157, 4, 31, "Input"], Cell[96842, 2708, 350, 6, 29, "Text"], Cell[97195, 2716, 141, 3, 31, "Input"], Cell[CellGroupData[{ Cell[97361, 2723, 160, 3, 49, "Input"], Cell[97524, 2728, 171, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97732, 2735, 234, 6, 47, "Input"], Cell[97969, 2743, 212, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[98218, 2751, 173, 4, 47, "Input"], Cell[98394, 2757, 213, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[98644, 2765, 394, 10, 52, "Input"], Cell[99041, 2777, 257, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[99335, 2786, 385, 10, 31, "Input"], Cell[99723, 2798, 945, 26, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[100705, 2829, 577, 17, 31, "Input"], Cell[101285, 2848, 1055, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102377, 2880, 272, 6, 31, "Input"], Cell[102652, 2888, 803, 23, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103492, 2916, 222, 5, 31, "Input"], Cell[103717, 2923, 837, 23, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104591, 2951, 331, 8, 31, "Input"], Cell[104925, 2961, 1162, 28, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[106124, 2994, 279, 7, 31, "Input"], Cell[106406, 3003, 1114, 28, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107557, 3036, 249, 6, 49, "Input"], Cell[107809, 3044, 556, 12, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108402, 3061, 149, 3, 31, "Input"], Cell[108554, 3066, 6416, 111, 248, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115007, 3182, 180, 4, 31, "Input"], Cell[115190, 3188, 50717, 876, 439, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[165956, 4070, 223, 3, 27, "Subsubsection"], Cell[166182, 4075, 327, 8, 31, "Input"], Cell[CellGroupData[{ Cell[166534, 4087, 198, 5, 35, "Input"], Cell[166735, 4094, 179, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[166951, 4101, 221, 5, 48, "Input"], Cell[167175, 4108, 187, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[167399, 4115, 157, 3, 31, "Input"], Cell[167559, 4120, 173, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[167769, 4127, 131, 2, 47, "Input"], Cell[167903, 4131, 184, 2, 30, "Output"] }, Open ]], Cell[168102, 4136, 444, 9, 35, "Text"], Cell[168549, 4147, 279, 5, 29, "Text"], Cell[CellGroupData[{ Cell[168853, 4156, 373, 11, 51, "Input"], Cell[169229, 4169, 181, 2, 30, "Output"] }, Open ]], Cell[169425, 4174, 411, 7, 29, "Text"], Cell[CellGroupData[{ Cell[169861, 4185, 138, 3, 47, "Input"], Cell[170002, 4190, 187, 2, 30, "Output"] }, Open ]], Cell[170204, 4195, 196, 2, 29, "Text"], Cell[CellGroupData[{ Cell[170425, 4201, 366, 9, 31, "Input"], Cell[170794, 4212, 934, 26, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[171765, 4243, 406, 10, 31, "Input"], Cell[172174, 4255, 998, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[173209, 4287, 272, 6, 31, "Input"], Cell[173484, 4295, 806, 23, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174327, 4323, 222, 5, 31, "Input"], Cell[174552, 4330, 833, 23, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[175422, 4358, 331, 8, 31, "Input"], Cell[175756, 4368, 1068, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[176861, 4400, 279, 7, 31, "Input"], Cell[177143, 4409, 1015, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[178195, 4441, 249, 6, 49, "Input"], Cell[178447, 4449, 475, 11, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[178959, 4465, 146, 3, 31, "Input"], Cell[179108, 4470, 31463, 521, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[210608, 4996, 230, 5, 31, "Input"], Cell[210841, 5003, 61242, 1052, 439, "Output"] }, Open ]], Cell[272098, 6058, 238, 3, 29, "Text"], Cell[CellGroupData[{ Cell[272361, 6065, 665, 15, 48, "Input"], Cell[273029, 6082, 1196, 31, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[274262, 6118, 331, 8, 31, "Input"], Cell[274596, 6128, 1296, 32, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[275929, 6165, 279, 7, 31, "Input"], Cell[276211, 6174, 1246, 32, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[277494, 6211, 340, 8, 49, "Input"], Cell[277837, 6221, 747, 16, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[278621, 6242, 146, 3, 31, "Input"], Cell[278770, 6247, 3676, 66, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[282483, 6318, 232, 5, 31, "Input"], Cell[282718, 6325, 54451, 941, 439, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)